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EXPANDED FORTRAN IV PROGRAM FOR ELASTIC SCATTERING ANALYSES 
by Margaret M. Smith and Charles C. Giamati 
Lewis Research Center 


SUMMARY 

SCATLE is a FORTRAN IV program which uses the nuclear optical model to calcu- 
late elastic scattering cross sections and polarizations. The version presented herein 
was written for an IBM 7094 n/7044 direct couple system at Lewis. This report des- 
cribes program SCATLE and serves as a user's guide. SCATLE contains several op- 
tions for calculating the central nuclear potential. Some options allow the real central, 
imaginary central, and spin-orbit potentials to have independent parameters. The 
parameters of the nuclear potential can be varied by a search option to improve the 
agreement between calculated and experimental values of cross sections and polariza- 
tions. Any one of the several chi-square functions calculated by SCATLE can be mini- 
mized by the search option. Plots of cross sections and polarizations as a function of 
scattering angle are furnished as part of the program output. Calculations of nuclear 
phase shifts and triple scattering values are available. The input description includes a 
listing of seven example input cases. Selected output from these examples is presented. 


INTRODUCTION 

Program SCATLE is the result of extensive revisions and additions made to the 
program SCAT4 (ref. 1). 

Both SCAT4 and SCATLE solve the Schrodinger wave equation, using a given scat- 
tering energy and nuclear interaction potential. The solutions to the wave equation are 
used to calculate scattering cross sections and polarizations as a function of scattering 
angle. These calculated values are compared to experimentally measured values. A 
chi-square function is evaluated to furnish a numerical basis for the comparison. The 
calculated values depend on the chosen form of the nuclear interaction potential, which 
is a function of several parameters. SCATLE contains an automatic search option which 
minimizes chi-square by varying these parameters. SCATLE also provides an increased 
number of options for choosing the nuclear interaction potential. 



In SCAT4, a nuclear potential is defined by specifying real and imaginary strength 
parameters (which represent the depths of the attractive potential wells) and real shape 
parameters (which define the nuclear size and surface diffuseness). When a Woods-Saxon 
form is used for the central potential, both the real and imaginary terms of the central 
nuclear potential are functions of -the same two shape parameters. When a Gaussian 
form is chosen for the imaginary potential well, it is a function of two additional shape 
parameters. The nuclear potential can also have a spin-orbit term which is multiplied 
by real and imaginary strength parameters representing the depths of the spin-orbit 
potential wells. The shape parameters for the spin-orbit term are those used for the 
real central potential. These parameters can be incremented in uniform steps to pro- 
vide a grid of points in the parameter space. Program SCAT4 then calculates scattering 
cross sections, polarizations, and chi-squares at each grid point. 

The program SCATLE is basically an extension of SCAT4. All the SCAT4 calcu- 
lations are included in SCATLE, although some of them have been revised. Several new 
calculations have been added, and some of the old calculations have been used in new 
ways. For example, one section of SCATLE is a merger of the basic SCAT4 calculations 
with a search program (ref. 2) from Argonne National Laboratory. SCATLE is arranged 
so that the parameter values at each grid point are input to the search program. The 
parameters are changed to give better agreement (in a least-squares sense) between cal- 
culated and experimental values for cross section and polarization. This process con- 
tinues until a local minimum of the chi-square function is reached. 

New options are also available for calculating the central-nuclear -potential form 
factors. The real central potential is always of the Woods-Saxon form, but can have 
different parameters than the imaginary potential (the decoupled case). The imaginary 
term may be a derivative of Woods-Saxon form, a Gaussian plus Woods-Saxon form, or 
a derivative of Woods-Saxon plus Woods-Saxon form. 

SCATLE also has options to calculate phase shifts and triple scattering parameters. 
Additional output is available in printed and plotted forms. 

The primary purpose of this report is to document SCATLE. The sections of this 
report which describes data preparation and available options will serve as a user's 
guide. The SCATLE calculations, input, and output are explained in detail. Some cal- 
culations are essentially unchanged from the original SCAT4 calculations. In these 
cases, the appropriate references will be made to the UCLA report (ref. 1). 


MATHEMATICAL DESCRIPTION 

The program SCATLE contains several calculations and options which are not 
available in SCAT4. These are described in detail in the following sections. SCATLE 
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also contains calculations which are essentially the same as the corresponding ones in 
SCAT4. Because those calculations are presented in reference 1, they are not discussed 
in this report. 


Nuclear Potential Options 


The Schrodinger equation solved by SCATLE can be written as 


2 

— v 2 + V 1 (r) + V 9 (r)S . L 

2p 1 2 


= Ei p 


( 1 ) 


using the symbols of reference 1. (All symbols are defined in appendix A. ) The inter- 
actions represented in equation (1) by V^(r) and V2(r) can be rewritten as 


V,(r) + V 2 (r)S • L = V CN + V CQul + + V coulso 


( 2 ) 


where is the nuclear central potential, V cou ^ is the coulomb potential, Vqq is the 

nuclear spin-orbit potential, and V CQU j qq is the coulomb spin-orbit potential. 

Although equation (1) is expressed in terms of the variable r, it is convenient to 
represent the potentials in terms of the dimensionless variable p where 


P = kr 


(3) 


The wave number k is given by 


k = 



= 0.218739 yfi±K 


fm 


-1 


(4) 


The constant factor in equation (4) is slightly different from the constant factor in equa- 
tion (8) of reference 1. A similar difference occurs in the definition of the coulomb 
parameter 77, where 


77 = M , (Z , Z )e 2 _ o 157481 zz' 1 / — mi — 
h 2 k K E LAB 


(5) 


corresponds to equation (43) of reference 1. The constants used in equations (4) and (5) 
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were computed using values of the fundamental constants K and e from reference 3. 
The reduced mass j u is given by 



Options for computing spin-orb it potential. - The standard form for the spin-orbit 
term in equation (2) uses the strength parameters VS and WS, and the shape param- 


eters AS and RS. 


The spin-orbit scattering potential Vg q 


is then given by 



where 

P s = k • RS • (m b ) 1/3 (8) 

In equation (8), m b represents the mass number of the target nucleus. When the square - 
well form is chosen for the real central potential, VS and WS must be set to zero 
(KL(1) = 2). 

There are also several special options available for computing VgQ. These are 
described on pages 20 through 24 of reference 1 as form A and form B. They are ob- 
tained by setting KL(9) /0 or KL(10) 4 0* SCATLE provides an option for introducing 
a space -exchange form for the real spin-orbit potential. In that option, VS is the 
strength of the real spin-orbit term when the angular momentum number l is an even 
number, and VSODD is the strength when l is odd (KX(6) = 1). 

Options for computing central nuclear potential. - SCATLE contains several options 
for computing the central nuclear potential which is represented as V^,-^ in equation (2); 
Vqn can k e expressed as a function of P by 

V CN^ = V CN,(R + 1 ' V CN,./ 

where V^ ^ is the real part of V CN and v CN,y is the imaginary part. 

There are two primary options for computing the real central potential V^^ ^ in 
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SCATLE. Both options use a Woods -Saxon form with strength parameter VO. The first 
option uses the shape parameters AS and RS, which are identical to those in the spin- 
orbit term (coupled spin-orbit case). Then ^ is given by 


V CN,<* = - VO 


1 + exp 



KX(7) = 1 


( 10 ) 


This option is also available in SCAT4. The second option uses the shape parameters 
AO and RO. These are independent of the shape parameters in the spin -orbit term 
(decoupled spin-orbit case). Then ^ is given by 


V CN,(R _ " VO 


1 + expj 


P ~ P 


KX(7) = 2 


O’ 


x o 


( 11 ) 


where 


P 


O 


= k • RO • (n^) 1 / 3 


( 12 ) 


SCATLE contains five primary options for computing the imaginary part of the 
central potential y. 

(1) Standard Woods -Saxon 


V CN,y= - WI 


1 + expj 


(P -P £ 
, k • a r 


KL(1) = 0 


(2) Gaussian absorption 


V CN,y 


-WI 


exp 



KL(1) = 1, 
KX(1) = 0 


(13) 


(14) 


where 
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1/3 

Pj = k • RI • (m b ) 


(Options (1) and (2) are also available in SCAT4. ) 
(3) Derivative of Woods-Saxon 



KL(1) = 1, 
KX(1) = 1 


(15) 


(4) Gaussian plus Woods-Saxon 


KL(1) = 1, 
KX(1) = 2 


(17) 

(5) Derivative of Woods-Saxon plus Woods-Saxon 


KL(1) = 1, 
KX(1) = 3 


(18) 

There are 10 ways to combine the two primary options for ^ and the five 

primary options for V CN j to calculate V CN (P) by equation (9). Table I shows how 
these combinations are formed and lists the parameters used for j, and 
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TABLE I. - SHAPE PARAMETERS FOR REAL CENTRAL 


NUCLEAR, IMAGINARY CENTRAL NUCLEAR, AND 
SPIN-ORBIT POTENTIALS 


Real central 

Imaginary central 

Spin -orbit 

nuclear potential, 

nuclear potential, 

potential, 

V CN, <R 

v cn,> 

v so 

Shape parameters 

AS, RS (eq. (10)) 

AS, RS (eq. (13)) 

AS, RS 

AS, RS (eq. (10)) 

AI, RI (eqs. (14), (16), (17), (18)) 

AS, RS 

AO, RO (eq. (11)) 

AS, RS (eq. (13)) 

AS, RS 

AO, RO (eq. (11)) 

AI, RI (eqs. (14), (16), (17), (18)) 

AS, RS 


The square well form of V^ is given by 

V CN,<R = V CN,y =1 1°*P*P S (19a) 

and KL(1) = 2 

V CN,«= V CN, J - = ° P>Ps < 19b > 

There are several options available which vary the shape of the Woods -Saxon form 
of Vqjj by including a dip or bump at the origin, or by varying the shape of the knee or 
tail of the potential curve. These options are described on pages 18 through 20 of ref- 
erence 1 as form A and form B. They are obtained by setting KL(7) ^ 0 or KL(8) ^ 0. 


Grid and Search Procedures 

The nuclear potential calculations depend on the following 12 parameters: VS, WS, 
AS, RS, VO, AO, RO, WI, WVI, AI, RI, and VSODD. Determining good values for 
these parameters requires three steps. The first step is to make initial guesses for the 
parameters. The next step is to vary the parameters in some systematic manner. The 
final step is to compare the results of calculations which are based on different sets of 
parameter values. 

In SCATLE, the initial guesses are the input values of the parameters. The calcu- 
lations are compared on the basis of a chi-square function associated with each set of 
parameter values. This chi-square function measures the deviation (in a least-squares 
sense) of the calculated values from the experimental values for cross section and po- 
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larization. There are several variations for calculating the chi-square function. These 
are described in a later section. 

SCATLE provides three options for the systematic variation of the parameters. The 
grid option (KT(1) = 2) calculates results at several predetermined sets of parameter 
values. The search option (KT(1) = 4) begins from a single set of parameter values and 
automatically varies these parameters to give successively smaller values of chi-square. 
Each parameter set in the grid option can also be used as the starting point for a search 
(KT(1) = 3). 

Each set of parameter values can be considered as defining a point in an n- 
dimensional parameter space. The points used in the grid option are defined as grid 
points. The initial grid point consists of the input values of the 12 parameters listed 
previously. Each parameter selected for the grid variation is then incremented for a 
specified number of uniform steps. The remaining grid points are then formed by taking 
all possible combinations of the generated parameter values. Cross sections and polar- 
izations are calculated at each grid point. Chi-square functions are then calculated and 
written out at each grid point, along with the parameter values. The variable names of 
the grid increments and of the number of grid steps corresponding to each parameter 
are found in table IV. (Tables II through V are grouped at the end of the section Input 
requirements. ) 

SCATLE contains an automatic search option which utilizes the subroutines des- 
cribed in reference 2. For any given search, the parameters to be varied are defined 
as search parameters. These n search parameters can be any selected subset of the 
12 parameters listed previously. Each search begins from the point in the n-dimensional 
parameter space which is defined by the input values of the search parameters. A spec- 
ified chi-square function is then calculated at this point. The partial derivatives of the 
chi-square function with respect to each of the search parameters are also calculated, 
and they define the gradient of the function at this point. Increments for the search pa- 
rameters are then calculated by using the gradient and a matrix (H -matrix) which is used 
as a metric in the parameter space. The search parameters are varied simultaneously 
and in such a way that the next iteration produces a smaller chi-square value. These 
calculations are repeated until a local minimum of the chi-square function is determined. 

The number of iterations required to locate a minimum depends on how accurately 
the H -matrix at each point describes the gradient at that point. A search converges 
faster with a good approximation for the initial H -matrix than with a poor approximation. 
There are three ways to set up the initial H-matrix in SCATLE. These options are des- 
cribed in table m. A standard diagonal matrix can be constructed by using the elements 
found in column 5 of table IV. Experience has shown that these values are appropriate. 

The normal search output for each iteration includes the current values of the 
search parameters, the partial derivatives of chi-square with respect to each of the 
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search parameters, and the value of the chi-square function to be minimized. At the 
end of a search, the final H-matrix is written out and the final values of the search 
parameters are used to generate the output for a SCATLE single case. 

When the grid and search options are combined, each grid point becomes the starting 
point for a search. The initial H-matrix for the first grid point is specified according 
to the options described in table in. The initial H-matrix for any subsequent grid point 
is set equal to the final H-matrix from the previous grid point. This procedure gen- 
erally leads to a more rapid convergence than occurs when a standard or arbitrary initial 
H-matrix is used. 


Additional Calculations 


The program SCATLE computes and outputs several quantities which were not com- 
puted in SCAT4. This section presents a brief description of the mathematical expres- 
sions for these calculations. 

Double and triple scattering calculations. - The quantities 6* 6*^., 6“ 6 ” ^ 

rj ^ , and rj~ are computed and written out in subroutine OUTPT4. These quantities are 
also plotted in the subroutine PTETDL. The absorption coefficients and rj~ are 
expressed in terms of the imaginary parts of the complex phase shifts 6^ and 6“ by 

(20a) 
(20b) 

The phase shifts are related to the complex coefficients and C” by the following 
equation (see eq. (57) of ref. 1): 



Cj and C" are related to the scattering amplitudes A(0) and B(0). The spin- 
independent amplitude A(d ) is given by 



A(0) = f c (0) + — ^ exp(2ia^) |(Z + 1) + ZCj jp^cos 6) 

k 1=0 L J 


(22a) 
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The spin -dependent scattering amplitude is 


OO 





(22b) 


Equation (22) appears as equation (60) in reference 1. The coulomb scattering amplitude 
f (0) appearing in equation (22a) is given by (see eq. (47) of ref. 1) 



The coulomb phase shift o^ is defined by (see eq. (49) of ref. 1) 

crj = arg r (Z + 1 - irj) (24) 

Calculations and output for the triple scattering parameters R, /3, and -R' are 
provided in subroutine TRIPS. The rotation angle /3 is defined in terms of the scattering 
amplitudes, cross section, and polarization by 


cos /3 = 


|a(a) | 2 - [b(0) | 2 

0(0) [l - P 2 (0)] l/2 


(25a) 


sin (3 = 


A(0)B*(0) - A*(0)B(0) 


o(0) 


1 - P 2 (0) 


1 1/2 


(25b) 


For an unpolarized incident beam, the cross section and polarization are given in terms 
of the scattering amplitudes A(0) and B(0) as follows: 


o(0) = | A(0) | 2 + |B(0) | 2 


(26) 


P(0) = A*(0)B(0) + A(0)B*(0) - 
o(0) 


( 27 ) 


The rotation parameter R is defined by 
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R = [l - P 2 (0)] 


c °s(0 - 0 LAb ) 


(28) 


1/2 


The parameter -R f , often denoted in the literature by the symbol A, is given as 


-R’ 


1 


2 W 2 

- P\9) sin(£ - 6 1jAB ) 


(29) 


The output from subroutine TRIPS includes a table of 6, tan /3, /3, a nd -R f 

values along with a plot of R and -R* as a function of 9. 

The polarization P(0) is usually obtained from a double scattering experiment. 
When the incident beam is unpolarized, the polarization P(0) of the scattered beam is 
along the direction of the unit vector n^ of equation (30) and figure 1. 


n i 



Figure 1. - Polarization direction in double scattering. 


n* = — 

1 it: 


k 0 Xk l 


k 0 xk l 


(30) 


Consider a triple scattering experiment with a 100 -percent -polarized beam of spin 
1/2 particles. Let the polarization vector be normal to the incident beam in the plane of 
scattering, as shown in figure 2. 



Figure 2. - Polarization directions in triple scattering. 
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The rotation of polarization R can be defined as 


R = — (S) • n g 

n 1 

where the direction of ng is given by 

_ (kj x kg) x kg 
| (kj x kg) x kg | 

The direction of ng defines the sign convention used to define R, /3, and -R*. 

Chi-square calculations . - The various chi-square functions computed in subroutine 
CHISQ are presented in this section. The function minimized by the search subroutines 
can be selected from any of the chi-square functions given by equations (33) and (34) or 
by equations (37) through (42). (See explanation of KX(3) in table m. ) The search sub- 
routines will also minimize the sum x a + Xp over any one of the restricted angular 
ranges. (See explanation of KX(12) in table m. ) 

The value of the chi-square deviation for the polarization is computed just as in 
SCAT4 (eq. (139) of ref. 1) 


( 31 ) 


(32) 


4 - I 4»> * y 

6 

The total chi-square is (eq. (137) of ref. 1) 

2 2 
*T = \j + 

o 

where is computed from the cross-section calculations and data. 

The absolute normalization of the experimental cross-section data is usually uncer- 
tain. When fitting calculated cross sections, the experimental data can be normalized by 

2 

a constant N, as described in reference 4. The equation for then becomes 


P th (6) - P eX (6) 
AP ex (0) 


Xp (34) 


2 

(33) 


4 = Z x> - 

e 



a th (6) - N • <J eA (6>) 


ex/ 


N • Acr ex (0) 


(35) 
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In SCATLE, there are three options for choosing the value of N. When KX(5) = 0, 
N is set equal to 1 so that x£ is computed just as in SCAT4. In this case, a ex (0) and 

Qy ^ O 

Act (0) are not normalized in the Xq- calculation. When KX(5) = 1, N is set equal to 
the input variable XNORM. Finally, when KX(5) = 2, N is set equal to N E which is 
given by 

' "|2 

q th (g) 

Aa eX (0) 

N„ = — * (36) 

V a th (9)^ eX (^) 

v [ i<reX(e) ] 2 

+ Vi 

In this case, N is recomputed for each set of cr n (0) values and is such that the cor- 
responding x£ value is as small as possible. The value of N E is always printed out 
along with values of the various chi-square functions. 

The coulomb cross section cr^ .(0) can be used in place of Aa ex (0) as the weight 

9 COU.1 9 

factor in the x^ calculation. This option requires KX(3) = 1. Then x^ is given by 


Z 



(37) 


In addition, it is possible to compute a chi-square function over restricted angular 
ranges. This is useful when trying to fit a particular portion of an experimental curve. 
The ranges of angles are controlled by input controls KT(4) through KT(14) which cor- 
respond to the indices NF, NR, Nl, INI, N2, IN2, N3, IN3, N4, IN4 as used in equa- 
tions (38) through (42). 

The computations using NF and NR are 


NF 

i=i 


4 <«]> 


NF 

4,f-S 

j=l 


* p (f V 


(38a) 


(38b) 
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NR 


(39a) 


v 2 = 

\r,M / i , 'a'*j 

j=NF+l 


# e i> 


NR 

X P,M = ^ ; X P^j^ 
j=NF+l 

JMAX 

4,R“ 1>2 $ 0 j> 

j=NR+l 


(39b) 


(40a) 



JMAX 


= X) 4<*j> 

j=NR+l 


(40b) 


where J max is the index of the last angle of the set. 

If we let K equal 1, 2, 3, and 4, the values of chi-square are computed for NK 
and INK as follows: 


NK+IN K 

4,k= 2D 4 (9 j> < 4ia > 

j=NK 

NK+IN K 

X P, K = ^ 1 x P^ 0 j) ^ 41b ^ 

j=NK 

For K equal to 3 and 4, the following chi-squares can be computed: 


2 2 2 
x o,34 = x o,3 +x o,4 

(42a) 

2 2 2 
X P, 34 “ X P, 3 + X P, 4 

(42b) 


Adjusted chi-square values are also calculated to furnish additional output. These 
adjusted values are the chi-square functions just described divided by the factor JMAX - 
NP, where JMAX is the number of experimental data points and NP is an input variable. 
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Effective potential calculations . - The effective potential for a given l -value is com- 
puted and plotted in subroutine PTFFRI. The effective potential V^pp is given by 


_ V CN,<ft , ^coul , 1(1 + 1) 

v eff = -- j - ^ + —r 


(43) 


The value of l in equation (43) is equal to the input parameter KX(9). The effective 
potential Vppp is plotted as a function of P for those values of p which lie in the 
range 


( p s- k - W < p < ("s 4 k ' W < 44 > 

This plot then presents the detailed behavior of the effective potential near the nuclear 
surface. The value of Z 1im in equation (44) is set internally to be an integer in the 
interval [0, 8], which produces a suitable plotting range. 


PROGRAM DESCRIPTION 
General Program Organization 

Each subroutine of the FORTRAN program SCATLE is assigned a subroutine num- 
ber, and each card is assigned a card number. The card numbers are punched in col- 
umns 73 through 80 and appear in the FORTRAN listing at the end of this main section. 

The first two digits of each card number are the corresponding subroutine number. In 
this section of the report, the subroutine numbers are given in parentheses following 
each subroutine name. 

Subroutines essentially unchanged from SCAT4 . - The calculations in the following 
subroutines are essentially unchanged from SCAT4, although the common statements 
have been completely revised and the subroutines have been rewritten in the FORTRAN IV 
language: 


SIGZRO (04) 
FSUBC (05) 
RHOTB (06) 
SKIP (07) 


EXSGML (09) 
CSUBL (16) 
SGSGCP (18) 
SIGMAR (19) 
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Figure 3. - Flow chart of main routine CTRL4 and overall program organization. 
























Subroutines modified from SCAT4. - The calculations in the following subroutines 
have been modified from SCAT4: 


CTRL4 (01) 
INPT4 (03) 
POT1CH (08) 
COULFN (10) 
OUTPT4 (11) 


PGEN4 (12) 
INTCTR (14) 
RKINT (15) 
AB (17) 
CfflSQ (20) 


CTRL4 (01): The main routine CTRL4 controls the flow of the program. Since the 
flow is different from that of SCAT4, a general flow chart is shown in figure 3. 

INPT4 (03): Subroutine INPT4 controls the data input and performs several initial 
calculations. Standard values for the program controls and for other input variables are 
set automatically in INPT4. These standard values can be overwritten by means of 
input statements referring to NAMELIST statements. The SCATLE input is less com- 
plicated and requires fewer data cards than the corresponding SCAT4 input. A detailed 
description of the SCATLE input is contained in the next subsection. 

POT1CH(08): The purpose of subroutine POT1CH is to make sure that l and 

IllaX 

are sufficiently large. The value of l __ must be large enough so that all the 
max max 

partial waves sensibly affected by the nuclear potential are included in the computation. 

The value of P^, 0 „ determined by this subroutine must be so large that the non-coulomb 
max 

part of the potential is negligible at p = p . The flow chart of POT1CH (fig. 4) out- 

max 

lines the details of the procedure for checking and increasing l and P The 

max max 

quantities which are tested are expressed in terms of the variables TCR, TCI, TSR, and 
TSI, where TCR and TCI are defined by 


TCR = - 


V CN,(ft 

E 


(45a) 


TCI = - 


V 


CN,> 

E 


Equation (6) can be rewritten as 


SO 


= v, 


SO, (ft + 1 ■ v so,> 


(45b) 


(46) 


where 
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Figure 4. - Flow chart of subroutine POUCH. 








































2 . k • Sj • exp 


'SO, (ft 


= -VS 


/ p - p s 
\ k ■ a s 


1 + exp I 


(P - Pg 


t2 


(47a) 


and 


2 • k • S^ • exp 


(P - Pc 
k • a c 


'so,./ 


= -ws 


1 + expj 


rp - p c 


"1 2 


ik 


a s> 


(47b) 


and where S^ is given by 


S, = l when |S I = - 
L 2 


S, = -l - 1 when Isl = - - 


(48a) 

(48b) 


The variables TSR and TSI are defined by 


TSR = — SQ?(R 

E* S z 


(49a) 


rpgl _ ^ SOjc/ 
" ~ ’ E • S Z 


(49b) 


COULFN(IO): Subroutine COULFN has been modified from the SCAT4 version by 
adding the calculations of the SCAT 4 subroutine RMXINC. The table of P values is 
now extended directly in subroutine COULFN when necessary. 

OUTPT4 (11): Subroutine OUTPT4 includes the statements for SCATLE initial and 
final output. This subroutine also includes the calculations for 8+^, 6+^., 6“^, 6“^, 
rjt, and rf, defined by equations (20) and (21). OUTPT4 has been expanded from the 

L (s 
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SCAT4 version to include additional printouts and calculations. A detailed description 
of output options is presented in the section Typical output listings . 

PGEN4(12): The SCATLE version of subroutine PGEN4 is an extensive revision of 
the SCAT4 subroutine. The SCAT4 version of PGEN4 computes values for the nuclear 
potential at the beginning and middle of the integration mesh points. The SCATLE ver- 
sion of PGEN4 contains the following revisions: 

(1) The potential V^,^ can be computed using several new options as described in 
the section Options for co mputing central nuclear potential . 

(2) PGEN4 is now called directly by POT1CH and furnishes values for the potential 

at ^ = ^max and p ~ P max' 

(3) The two separate computations of the potential at the beginning and middle of an 
integration step interval have been combined in the coding. 

(4) The computations for the knee and tail variations of the form factors as described 
in reference 1 are now found in the function TF. 

(5) PGEN4 contains the following entry points: 

(a) The normal entry point at the beginning of PGEN4 is used for calculating the 
nuclear potential at the beginning and middle of the integration mesh points. 

(b) PGNCK is the entry point called by POT1CH. 

(c) PGNIN is an entry point called from INPT4. It provides for the input of data 
used by function TF for the knee and tail variation calculations. 

(d) PGNOUT is an entry point called from OUTPT4. It provides for the initial 
output of the knee and tail variation parameters. 

A flow chart of subroutine PGEN4 is shown in figure 5. 

INTCTR(14): This subroutine controls the Runge-Kutta integration procedure. When 
KX(6) = 1, the strength of the real spin-orbit term in the nuclear potential is VS if l is 
an even integer and VSODD if l is an odd integer. 

RKINT (15): Subroutine RKINT carries out the numerical integration of the radial 
wave equation. The integration is carried out by operating with two coupled differential 
equations for the real and imaginary parts of the radial wave function. For convenience, 
this set of two equations is solved for the case j = l + 1/2 and j = l - 1/2 at the same 
time. When VS = WS = 0, these two cases are identical. In order to speed up the in- 
tegration procedure, RKINT calculates only one of these cases when VS = WS = 0. 

AB(17): Subroutine AB calculates the scattering coefficients A (9) and B(0). The 
Legendre polynomials P^(cos 9) and the associated Legendre polynomials P^(cos 9) are 
also calculated in this subroutine. To economize on computer storage space, the quan- 
tities Pj(cos 9) and P^(cos 9) are recomputed each time A (9) and B(0) are computed. 

CHISQ(20): Subroutine CHISQ computes the chi-square functions and the normal- 
ization constant given in equations (33) through (42). During a grid case, this subroutine 
provides for the output of the parameter and chi-square values. 
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Entry point for 
P0T1CH calculations 
ENTRY PGNCK (RHOT,| 
TCR, TCI, TSR, TSI) 


Compute quantities which 
are a function of the 
SCATLE parameters but 
not a function of p 




J Compute quantities which 
are a function of p 


Compute FFCRX, 
UCRX, and TCRX 


Compute FFCIX, 
UCIX, and TCIX 



I 


Compute FFSRX, 
USRX, and TSRX 

T 


Store computed values 
for middle of I'th 
interval of integration 
FFCRX -FFCRM(I) 
UCRX - UCRM(I) 
FFCIX - FFCIM(I) 
UCIX - UCIM(I) 
FFSRX - FFSRM(I) 
USRX - USRM(I) 
FFSIX-FFSIM(I) 
USIX -USIM(I) 



Store values to 
be used in POT1CH 
TCRX -TCR 
TCIX - TCI 
TSRX -TSR 
TSIX -TSI 


Set MM = 2 
RHOX = RHOX + 
0.5*DRHO(I) 


Store computed values 
for beginning of I'th 
interval of integration 
FFCRX -FFCR(I) 

UCRX -UCRB(I) 
FFCIX -FFCI(I) 

UCIX — UCIB(I) 

FFSRX -FFSR(I) 

USRX -USRB(I) 

FFSIX -FFSKI) 

USIX -USIB(I) 




Entry for 
TFX output 
ENTRY PGNOUT 



Yes 


Figure 5. - Flow chart of subroutine PGEN4. 





















New subroutines. - The following subroutines were written for program SCATLE: 


POUT (02) 
TFX(13) 
PTFFRI(21) 
TRIPS(22) 


PTETDL(23) 

PTSCAT(24) 

SOUI(26) 

SCTBD(34) 


POUT (02): Subroutine POUT outputs values of the nuclear potential parameters, 
along with proper labels, during search and grid procedures. 

TFX(13): Function TFX contains the calculations for the special variations of the 
potential form factors referred to as knee and tail variations in reference 1. 

PTFFRI(21): Subroutine PTFFRI is called only when KL(12) = 1. It computes and 
plots the effective potential as a function of p near the nuclear surface. The potential 
as given by equations (43) and (44) is calculated for a single given Z -value. The form 
factors for the real and imaginary parts of the central nuclear and spin -orbit potentials 
are also plotted as a function of P. These form factors are the coefficients of -VO, 

-WI, -WVI, -VS, and -WS in the equations for the nuclear potential. The spin-orbit 
form factors are multiplied by the factor 4 • Pg before plotting, and all four form fac- 
tors appear on a single plot. 

TRIPS(22): Subroutine TRIPS is called when KX(ll) / 0. When KX(ll) equals 1 or 2, 
the triple scattering parameters R, /3, and R f of equations (25), (28), and (29) are cal- 
culated. The values of 0, tan j3, (3, $lAB’ -R' are then written out in table 

form. Subroutine TRIPS also produces a plot of R and -R' as a function of 0. When 
KX(ll) = 2, a table of the quantities f c (0) and [A(0) - f c (0) ] is generated in polar form. 
These quantities are given by equations (22a) and (23). A table of cr^ values as given 
by equation (24) is also written out. 

PTETDL(23): Subroutine PTETDL is called when KX(2) / 0 and KL(6) / 1. This 
subroutine produces a plot of and r) J as a function of l (see eq. (20)). It also pro- 
duces a plot of the quantities 6^ ^<$t +7r ’ ^(R + ^ 7r as a function of l. 

The real phase shifts 6* ^ are defined in equation (21). 

PTSCAT(24): This subroutine produces plots of polarization and/or cross-section 
data when KL(4) / 0. When KL(4) = 1, a plot of P ex (0) and P^(0) as a function of 0 is 
produced. A plot of cr ex (0) and cr th (0) as a function of 0 is produced when KL(4) = 2. A 
plot of N • a ex (0) and ct^( 0) as a function of 0 is also produced when the experimental 
cross sections are normalized in equation (35) (KX(5) / 0 and KL(4) = 2). When KL(4) = 3, 
the combined results of KL(4) = 1 and KL(4) = 2 are produced. 

SOUI(26): Subroutine SOUI outputs and labels values of the search parameters and 
their partial derivatives during a search. The value of the reaction cross section and 
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the values of the normalization and chi-square functions given by equations (33) through 
(42) are also written out. Subroutine SOUI contains two nonstandard entry points which 
are labeled ENTRY SOUF and ENTRY SOUT. 

SCTBD(34): Subroutine SCTBD is a BLOCK DATA subprogram. The convergence 
limits e 3 > and e 4 are entered into COMMON block CONV in SCTBD. The 

names of the SCATLE parameters are entered into COMMON block PARA. 

Search subrou t ines . - The SCATLE search subroutines are unchanged from the 
corresponding subroutines of reference 2 in the sense that the searching procedure is the 
same. There are several new cutoff options which are controlled by the input variables 
NMLR, NPCT, and PCT (table in). The SCATLE search subroutines are changed from 
those of reference 2 in the sense that the input, output, and COMMON statements have 
been modified. 

ARGN(25): The SCATLE subroutine ARGN corresponds to the main program of ref- 
erence 2, and controls the search procedure. The SCATLE search variables are input 
in subroutine INPT4 by referring to NAMELIST SCHI. Table in contains a detailed 
description of the search input. 

The following subroutines are described in reference 2: 

READY(27) DRESS (30) 

AIM (2 8) STUFF(31) 

FIRE (2 9) MATMPY(32) 

FCN(33): Subroutine FCN is called by several search subroutines. It calculates the 
value of the chi-square function to be minimized and its gradient, given a set of values 
for the n search parameters. Let f ^ ( x p x 2 > ■ ■ • > x n ) be the chi-square function 

designated by the controls KX(4) and KX(12) (see table HI). The n components of the 

gradient of f 0 are given by 
X^ 

af 2 f 2 ( x i> • • • » x j + AXj , • • • , x n ) - f 2 ( x i’ • • • > x j> • • • > x n ) 

G. = -A. = ■ - - - - • x - (50) 

3x. Ax. 

for j = 1 to j = n, where Xp Xg, . . • > x n are the current values of the n search 
parameters. The values of AXj corresponding to each SCATLE parameter are found 

in column 6 of table IV. The value of f ^ ( x p x 2 > • • • > x n ) is the current value of the 

X 

function to be minimized by the search subroutines, and the gradient of this function is 
defined by the n values of G^ . 
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Program Operating Instructions 


Machine specifications . - Program SCATLE is written in FORTRAN IV programming 
language (version 13). It is currently being run at Lewis on an IBM 7094 n direct couple 
system with 32 768 core storage locations. The monitor system is a modified version 
of the IBM -distributed IBSYS Version 13. SCATLE utilizes several options which are 
not part of the IBM monitor system. Table V includes descriptions of these options and 
indicates where they are used in SCATLE. 

Detailed description of required input . - The form of the data cards is specified by 
either FORMAT statements or NAMELIST statements. There are nine sets of data 
cards. Four sets are required for every case; the other five sets may be required de- 
pending on the options chosen. The nine input sets are listed in table II. The card 
number listed refers to the READ statement for that data set. The NAMELIST or 
FORMAT for each set is listed in the column labeled Description. 

Table ni lists and describes all SCATLE input variables which appear in NAMELIST 
statements. The standard input values also appear in table in. The glossary of 
FORTRAN variables (appendix B) may also be helpful in interpreting the SCATLE input 
variables. 

Table IV lists the variable names of the grid increment and number of grid points 
corresponding to each SCATLE parameter. The values of the corresponding elements 
in the standard H -matrix are also tabulated. The values of Ax. in column 6 are those 

used to calculate the partial derivatives of f ^ for the search subroutines (eq. (50)). 

X 

These values are internal and cannot be read in. 

The dimension specifications of the FORTRAN variables impose three limitations 
on the input values: JMAX must be less than or equal to 150; LMAXM must be less than 
or equal to 50; the RHOIN and DRHOIN arrays cannot take on values which cause the 
resulting RHO array to have more than 250 elements. 

In general, the SCATLE user need input a NAMELIST variable only if he wants its 
value to differ from the value already stored in the computer. The flow diagram of fig- 
ure 6 shows how a set of input values for any given case is defined. 
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^ Begin ^ 



No 

The input values from the 
previous case are already 
stored in the computer. 


\ Is this the first / 

case of the / j 

N \data set/ 


No 


Yes 


The standard values of 
table III are stored in 
the computer. 



The values of input variables 
with standard values are 
replaced with their standard 
values (table III). 



The values of input variables 
of NAMELIST SCHI with standard 
values are replaced with their 
standard values (table III). 


The required input cards are read 
(table II). Note that a NAMELIST 
variable only needs to be input if 
its value is different from that 
already stored In the computer. 


Figure 6. - Schematic flow diagram showing how a set of input values is defined. 


The data cards for a single case with standard controls and with no experimental 
data are listed below. The potential is a Woods -Saxon real central potential, a Gaussian 
imaginary central potential, and a derivative of Woods-Saxon spin-orbit potential. 


STANJARJ RUTtNUAL LASfc wi PH CUT E XPtK I MENT AL DATA 
$KTK kL( 2) = C i 

$Pt l RrtI = l.CU7aJ,|-MB=2 7. 97693tfcLAB=lB.82 ,ZZ=14 , RC= 1 . 2 5, V 0=6 0 , AS = .6, RS=l.O, 
M 1 = 6 »A 1 = . b • R 1 = i • 2 * VS = £> . S 

SR hi $ 

SlUF UTH=5. Ini =5, THH=1 75 $ 


Card 1 is the title card. Card 2 contains the nonstandard value KL(2) = 0 so that chi- 
square values (meaningless here without experimental data) will not be computed. Card 3 
and Card 4 contain the parameters describing the specific nucleus and interaction. The 
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first four variables are the incident and target nucleus masses, laboratory energy, and 
charge product. The coulomb charge radius parameter is denoted by RC; VO, AS, and 
RS are parameters for the real central potential; WI, AI, and RI are parameters for 
the imaginary central potential; and VS is the real spin-orbit potential strength. Card 5 
must be read in, but since standard values are used for the integration data, the data 
field is left blank. Card 6 contains values needed to generate the set of center-of-mass 
angles at which cross sections and polarizations are calculated. 

Input cards for typical data sets. - This section lists the input cards for six example 

— — — Oft 

cases which compute results for scattering of 18. 82-MeV protons from Si. Data set 1 
consists of the input cards for examples 1 and 2 . The input cards for examples 3 through 
6 have been combined to form data set 2. These two data sets illustrate the input re- 
quirements described in the previous section. 

Example 1 of data set 1 is a six -parameter search case with search parameters VO, 
WI, VS, AO, AI, and AS. The real central potential Vq^- ^ uses a Woods -Saxon form 
factor, the imaginary central potential Vq^ j uses a derivative of Woods-Saxon form 
factor, and the spin-orbit potential contains only a real part. 

Example 2 of data set 1 is a combination grid and search case which uses the same 
options for Vq N and V SO as example 1. The grid parameters are AO and AS; and 
each grid point is the starting point for a four -parameter search on VO, WI, VS, and 
AI. 


DATA SET 1 

tXAMPLE i ML ICON 28 (P,P) EM8.82 MNGLE CASE SEARCH 

$Klk NLIMM, RXl 1 ) = i » KX(7)=2, KT(i)=4, NP=10* 

*PE l PMiM.tu78j, PMtJ=27.W6V3, ELAbMd.82, LL= 14., RCM.25, 

VU = t>C. , w 1 = fc » » vS=b., Au=.b, A i = . 8 • A S= . 5 * ROM. 05, RIM. 2, RS=.95* 

iRHi LMAXM = 1 5, NrtAXM, RH0IN(M=5. , 15., URHC IN (2 )= . 1, .2$ 


StPi N = 6 

v SRc rl = • Vu 1 

, 1 wl • , 1 VS 

•* * A L 1 » 

• A 1 * f 'AS 

ISP LSi6 

=r, jmax=44 

, JuPT=i* 
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102. C3 
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EXAMPLt 2 iiLlCUN Zo (P,P> L = ld.d^ SEARCH WITH GRID ON AO AND AS 

jktr r n i j =2$ 

JPtl AU = . 7 $ 

JGR i NAU = Z t UrtU = . 1 t NAS=^i l) A S= . Ct> S 

JR P I $ 

JSChl N=4, SKC H = • VU ' • 'wl*, • V S ' » ' A i ' J 


28 


Example 3, the first case of data set 2, is a single case which uses the same options 
for V CN and VgQ as examples 1 and 2. The values of the SCATLE parameters are 
the values at the end of the search of example 1. 

Example 4 is also a single case. This case is exactly the same as example 3 except 

o 

that it uses the normalization in the calculation of X^.. 

Example 5 is a grid case which uses the same computing options as example 3. The 
grid points of this example bracket the point in the parameter space used as input for 
example 3. 

Example 6 is a single case where ^ uses a Woods-Saxon form factor, V^ N j 

uses a knee and tail variation form factor, and the spin-orbit potential contains only a 
real part. Input values for the SCATLE parameters which yield reasonable chi-square 
values were chosen. 

Data set 1 ran on an IBM 7094 n direct couple system at Lewis with an execution 
time of 11. 76 minutes. The execution time for data set 2 was 0. 82 minute. 


DATA SET 2 

tXAP.PLb 3 SIlIlUN 2a (P,P) E=la.a2 SINGLE CASE 

iKTK KlIM=A Kl(6)=2, KLiiZi-lt K X ( 1 ) ■= 1 t KX(7)=2, NP=10$ 

$Pt 1 M l=l.C0/8J» EMa=2 7. 97693 , ELA0=18. 82, ZZ=14., RL=1.25, 
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EXAMPLE 4 

SILICON 

28 IP.P) E = 

13.82 

SINGLE CASE, ENORM NORMALIZATION 


$KTR K X ( Si ~2$ 
tPEl $ 

*Rh i $ 

EXAMPLE S SILICON 28 (P,P) E=18.82 (iRIO ON VO, VS, ANO MI 

$KTR KL ( 13 ) =1 , Kill) =2 , KX(5)=0$ 

JPEI VO = SO . , V S=4. , Ml =4. $ 

$GR 1 N VO =2 , L» VO = 10. , N M I =2 , l)mI=2., NVS=3, DVS=2.$ 

$RH I $ 


EXAMPLE to SILICON 28 IP.P) E=18.82 SINGLE CASE, KNEE ANO TAIL VCNI 

$KTR KL(1)=C, KL(4)=3, KL(6)=1, KL(8)=i, KX<7)=2, NP=11$ 
iPEI V0=51.S, wI=30.C8, VS=10.37, A0=.75, AS=.85, R0=I.I61, RS=.861* 

*KhI LMAXM=15, NMAX=4, RHOIN(3)=5., 15., ORHC I N (2 1= . 1, .2$ 

1 • 0 . X* 0* 1 * 0 • • 7 0* 

S TSP $ 


Tables describing input. - Tables II, in, and IV contain details of SCATLE input op- 
tions. Table V lists the nonstandard FORTRAN IV programming options used in SCATLE. 
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TABLE II. - INPUT SETS 


Input 

set 

Required 

for- 

Card 

number 

Description 

1 

All cases 

03—0950 

Title card (FORMAT 13A6) 

2 

All cases 

03—0970 

Controls: 

NAME LIS T/KTR/KL , KT , KX, XNORM, NP 

3 

All cases 

03—1200 

SCATLE parameters (energy, mass, and charge values): 

NAMELIST/PEI/FMI, FMB, ELAB, ZZ, RC, VO, AO, RO, WI, WVI, AI,RI, VS, WS, AS, RS, VSODD 

4 

KT(1) = 2 
or 

KT(1) - 3 

03—1330 

Grid variables: 

NAMELIST/GRI/DRI, DRS, DVO, DWI, DAS, DVS, DWS , DAI, DWVI, DAO, DRO, DVSODD, 
NRI , NRS , NVO , NWI , NAS , NVS , NWS , NAI , NW VI , NAO , NRO , NVSODD 

5 

All cases 

03 — 1350 

Integration variables and LMAXM: 

NAMELIST/RHI/NMAX, LMAXM , RHOIN, DRHOIN 

6 

10 

E kl(i) 1 0 

1=7 

12 — 1630 

Input for knee and tail variations (FORMAT 8E10.0): a 
TH(1) , TH(2) , TN1(1) , TN1(2) , TN2(1) , TN2(2) , PM A, PMB 

7 

KT(1) = 3 
or 

KT(1) = 4 

03 — 1520 

Search variables: 

NAME LIST/S CHI/C, DELTA, E, FAC, H, KSTEP, N, NC, NHP, NSSW1, NMLR, NPCT, PCT,SRCH, VP 

8 

KL(3) £ 0 

03 — 1790 

Experimental data: 

NAMELIST/TSP/CSIG, DPOLEX, DSGMEX, DTH, JMAX, JOPT, POLEX, SGMAEX, THETAD, THI, THF 

9 

JOPT ± 0 

03 — 1880 
03—1890 

Experimental data (FORMAT 8E10.0): a 

THETAD(J) , SGMAEX(J) , DSGMEX(J) , POLEX(J) , DPOLEX(J); one card for each J from 1 to JMAX 


^hen data are input using E- conversion, the exponent is read as 0 whenever the characters Exx are omitted from the data 
card. Thus, data which are punched on cards according to the specifications for F -conversion will aso be input correctly 
by E-conversion. (See listing of data cards for example data sets.) 
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TABLE m. - SCATLE INPUT VARIABLES APPEARING IN NAMELIST STATEMENTS 


Namelist 

name 


Variable name 


KL(1) 


KL(2) 


KL(3) 


KL(4) 


KL(5) 

KL(6) 


KL(7) 


KL(8) 


KL(9) 


KL(10) 


KL(ll) 


KL(12) 


KL(13) 


Standard values 


Description 


1 


1 


1 


0 


0 

0 


0 


0 


0 


0 


0 


0 


0 


0 ■ V CN dr w °ods-Saxon; V CN> -, Woods -Saxon 

1 " v cn (R’ Woods-Saxon; V CN > , determined by KX(1) 

2 - Square well form of V CN (eq. (19)): 

When KL(1) - 2, KX(7) is set to 1. 

If KL(1) = 2, set VS = WS = 0. 

0 - Chi-square not computed. 

1 - Compute chi-square. 

0 - Use experimental values from previous case. 

1 - Read NAMELIST/TSP/. (KL(3) is set equal to 0 after Read.) 

0 - No plot. 

1 - Plot polarizations. 

2 - Plot sigmas. 

3 - Plot sigmas and polarizations. 

Not used 


2 

0 

1 

2 

0 

1 

2 

0 

1 

2 

0 

1 

2 

0 

1 

0 

1 


- Normal output. 

- Minimum output (t?J, r?“, are not com P uted ’ Panted. 

or plotted. ) 

- Normal output plus AR, AI, BR, BI 


- Standard form for V 


• Form A for V ( 
■ Form B for V 


CN, (ft 
CN.dl 


CN, (ft 
Ref. 1 


- Standard form for V 


- Form A for V ( 

- Form B for V, 


N,/ 1 

N.yJ 


CN,y 


Ref. 1 


- Standard form for V g Q 

- Derivative of form A for V g Q ^ 


- Form B for V, 


SO, (R 

- Standard form for V gQ ^ 

- Derivative of form A for V 

- Form B for V, 


Ref. 1 


SO ’^ Ref. 1 

SO ,J 

No coulomb spin-orbit term 1 
Includes coulomb spin -orbit J 


> Eq. (2) 


- Do not print and plot form factors (ref. 1) 

- Print and plot form factors; plot effective potential for 

l = KX(9) (eq. (43)). 


0 - Save current input values for next case. 

1 - Initialize input to standard values before next case. 

(KL(3) is reset to 1.) 
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TABLE IU. - Continued. SCATLE INPUT VARIABLES APPEARING IN NAMELIST STATEMENTS 


Namelist 

name 

KTR 


Variable name 


Standard values 

Description 

1 

1 - Single case, no search 



2 - Grid, no search 



3 - Grid, plus search 



4 - Single case with search 


0 

Not used 


0 

Not used 



NF 

NF 

0 

NF SUMFS = X xjfo); SUMFP = ) j 4,^) | 


}=1 

i=i 


NR 

NR 

0 

NR SUMMS = > ^ 4(0 j) 

SUMMP = > ] Xp^) 


j=NF+l 

j=NF+l 


JMAX 

JMAX 

0 

ni sumrs = > ; 4( 0 j): 

SUMRP = ^2 X p(0.) 


j=NR+l 

j=NR+l 


N1+IN1 

N1+IN1 

0 

INI SUM1S = > ; 

SUM1P = 2E2 


j=Nl 

j=Nl 


N2+IN2 

N2+IN2 

0 

N2 SUM2S = > ] 4(0 j); 

SUM2P = > : Xp(0^ 


j=N2 

j=N2 

0 

IN2 



N3+IN3 

N3+IN3 

0 

N3 SUM3S = > ] 4(0j); 

SUM3P = Xp(0j) 


j=N3 

j=N3 

0 

IN 3 



N4+IN4 

N4+IN4 

0 

N4 SUM4S = 4 (0 i ); 

SUM4P = ^ Xp(Oj) 


j=N4 

j=N4 

0 

IN 4 SUM34S = SUM3S + SUM4S 


SUM 34 P = SUM3P + SUM4P 

1 

Normalization factor for o ex (0) and Aa ex (0); SNORM = XNORM 


when KX(5) = 1 


0 

All chi-square values are divided by (JMAX - NP) and printed out 


along with the unadjusted chi-square values. 

0 

0 - Gaussian form for V^ j (eq. (14)) 


1 - Derivative of Woods -Saxon form for V^ ^.(eq. (16)) 


2 - Gaussian plus Woods-Saxon form for V^ j (eq. (17)) 


3 - Derivative of Woods-Saxon plus Woods-Saxon form for 


V CN)> (eq. (18)) 


0 

0 - Do not plot tj", 6+ (fi , 6" ^ (eqs. (20) and (21)). 


1 - Plot T) v 6+ 6^ 

l KL(6) 4 1. 


2 - Plot and punch 6+ (R , 6 ^ 

J 


KT(1) 

KT(2) 

KT(3) 

KT(4) 

KT(5) 

KT(6) 

KT(7) 

KT(8) 

KT(9) 

KT(10) 

KT(ll) 

KT(12) 

KT(1 3) 


KX(1) 


KX(2) 
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TABLE m. - Continued. SCATLE INPUT VARIABLES APPEARING IN NAMELIST STATEMENTS 


Namelist 

name 

Variable name 

Standard values 

KTR 

KX(3) 

0 


KX(4) 

3 


KX(5) 

0 


KX(6) 

0 


KX(7) 

1 


KX(8) 

0 


KX(9) 

0 


KX(10) 

0 


KX(ll) 

0 


KX(12) 

0 


KX(13) 

0 

PEI 

FMI, FMB, ELAB, ZZ, RC 

None 


VO, AO,RO, WI.WVI, AI 
RI , VS , WS , AS , RS , VSODD 

0 

GRI 

D VO , DAO , DRO , DWI , 

DW VI , DAI , DRI, D VS , DWS , 
DAS, DRS,D VSODD 

0 


NVO, NAO, NRO, NWI, 
NWVI, NAI, NRI, NVS , NWS, 
NAS , NRS , NVSODD 

1 


Description 


0 - Ao ex (9) used in 

1 - &cr ex (6) replaced by ^oul^ 111 X 2 when KX(3) = I, 

KX(5) is set equal to 0. 


Determines what function will be minimized by search: 


1 - CHI2ST 

2 - CHI2PT 

3 - CHI2T 

4 - SUM IS 

5 - SUM IP 

6 - SUM2S 

7 - SUM2P 


8 - SUM3S 

9 - SUM3P 

10 - SUM4S 

11 - SUM4P 

12 - SUMFS 

13 - SUMFP 

14 - SUMMS 


15 - SUMMP 

16 - SUMRS 

17 - SUMRP 

18 - SUM 34S 

19 - SUM34P 


When KX(12) = 1, CHISQ(KX(4)) + CHISQ(KX(4) + 1) will be 
minimized. 


0 - SNORM = 1 ^ 

1 - SNORM = XNORM 1^(5) is set equal to 0 when KX(3) = 1. 


2 - SNORM = ENORM 


'J 


0 - Normal integration procedure 

1 - Exchange potential in integration routine: If l is even, VS = VS 

If l is odd, VS = VSODD. 


1 


2 


- AS and RS used to compute Woods -Saxon' 1 

form of V CN (R (eq. (10)) 

- AO and RO used to compute Woods -Saxon 

form of V CN (R (eq. (11)) 


I KX(7) is set equal to 
[ 1 when KL(1) = 2. 


Not used 

l -value used in angular momentum term when plotting effective 
potential (eq. (43)); this option is used only when KX(12) = 1. 

Not used 

0 - Do not call TRIPS 

1 - Call TRIPS (standard output) 

2 - Call TRIPS (standard output plus scattering amplitudes and 

a roul< 0 ) out P ut) 

^1 - Search on CHISQ(KX(4)) 

1 - Search on CHISQ(KX(4)) + CHISQ(KX(4) + 1) 

Not used 

Mass, energy, charge product, coulomb radius 
SCATLE parameters (nuclear potential parameters) 


Grid increments (table IV) 


Number of grid values (table IV) 
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TABLE m. - Concluded. SCATLE INPUT VARIABLES APPEARING IN NAMELIST STATEMENTS 


Namelist 

Variable name 

Standard values 

Description 

name 




RHI 

lmaxm 

25 

*max 


nmax 

3 

Number of RHOIN values (==10) 


RHOIN(I) for 1=1 to 10 

0.05, 0.5, 25.^1 

(RHO(l)=RHOIN(l) 

I RHO(I)=RHO(l- 1) +DRHOIN( 1) ; RHOIN( 1) <RHO (I) <RHOIN(2> 


DRHOIN(l) for I = 1 to 9 

0.05, 0.5 ( 

1 RHO(l)=RHO(I- l)+DRHOIN(NMAX-l) ; 



J 

L RHOIN(NMAX-lKRHO(D<RHOIN(NMAX) 

SCHI 

C(LJ) for 1= 1 to 12 

0 

Constraint matrix 


J = 1 to 10 




DELTA 

None for FAC = 0 

H(1 , 1) • H(2, 2). • . H{N, N) for FAC ^0 

Determinant of H-matrix 


E 

0.1 

Criteria for search cutoff 


FAC 

-1 

Controls input of H-matrix 


H(I, J), 1= 1 to 12 

FAC < 0: Diagonal matrix com- 

Symmetric matrix used by search routines; when FAC = 0, 



posed of standard elements from 
table IV 

only elements on diagonal and to right of diagonal are input. 



FAC = 0: None 




FAC > 0: FAC x Identity matrix 



KSTEP 

0 

Number of random steps to be taken at end of search 


N 

None 

Number of parameters to be searched on 


NC 

0 

Number of constraints 


NHP 

5 

H-matrix is printed out every NHP iterations during search 


NSSW1 

1 

Output control: 




NSSW1 s 1 gives normal search output. 
NSSW1 < l gives minimum search output. 


NMLR 

5 

A search will be cut off after NMLR move left or move right 




output messages. 


NPCT 

5 1 

Ia search will terminate after NPCT iterations with less than 


PCT 

0. 5 

| PCT percent change. 


SRCH(I) , I = 1 to 12 

None 

This array must contain the FORTRAN names of the N parameters 




to be searched on. Literal constants must be enclosed by apos- 
trophies when read into NAMELIST (e. g. , SRCH = 'VO', 'RS'}. 


VP 

0 

Factor for determining the length of random steps (card 31--0220.) 

TSP 

CSIG 

FALSE 

o ex (fl) and Acr ex (0) are converted from mb/sr to fm^/sr when 




CSIG = .TRUE. 


JMAX 

None 

Number of experimental data points. 


JOPT 

0 

When JOPT ^ 0, experimental data will be read with 




FORMAT 8E10.0 (table n). 


DTH 

° 1 

jWhen DTH 0, the THETAD array is generated from THI 


THI 

None > 

1 to THF in steps of DTH. 


THF 

None 1 

1 


THET AD -array 

None 

9 


DPOLEX -array 

None 

AP 6 * 


DSGMEX -array 

None 

AO^ 


POLEX -array 

None 

p ex 


SGMAEX -array 

None 

a ex 



TABLE IV. - SCATLE PARAMETERS - SEARCH AND GRID INFORMATION 


1 

2 

3 

4 

5 

6 

SCAT4 

SCATLE 

Grid 

Number of 

Corresponding 

Increment for 

parameter 

name 

parameter 

name 

increment 

grid values 

element in 
standard 
diagonal 
H -matrix 

parameter 
for Xj in 
equation (50), 
Ax. 

V 

VO 

DVO 

NVO 

0.005 

0.001 

W 

WI 

DWI 

NWI 

.005 

.001 


AO 

DAO 

NAO 

.00001 

.0001 


RO 

DRO 

NRO 

.00001 

.0001 


WVI 

DWVI 

NWVI 

.001 

.001 

BG 

AI 

DAI 

NAI 

.00001 

.0001 

RG 

RI 

DRI 

NRI 

.00001 

.0001 

VS 

VS 

DVS 

NVS 

.001 

.001 

ws 

WS 

DWS 

NWS 

.001 

.001 

A 

AS 

DAS 

NAS 

.00001 

.0001 

RO 

RS 

DRS 

NRS 

. 00001 

.0001 


VSODD 

D VSODD 

NVSODD 

.001 

.001 



TABLE V. - NONSTANDARD FORTRAN IV PROGRAMMING OPTIONS USED IN SCATLE 


Option 

Card numbers where used 

Description 

G-type format 

02—0X40 

11--0940 

22—0360 

Output format option which causes each number to be examined 


02—0150 

11—1060 

22—0520 

to determine whether it fits I, E, or F format. If the number 


11—0580 

11 — 1100 

22--0590 

fits one of these formats, it is printed in that format. All 



11—0620 

11 — 1190 

22 — 1120 

other numbers are printed in O-type format. 



11—0630 

11 — 1360 

25—0930 




11—0640 

11—1550 

25—0940 




11—0650 

11 — 1970 

26—0230 




11—0670 

20—0850 

26—0250 




11—0780 

20--0860 

26—0320 




11—0790 

20—0910 

26—0330 




11—0870 

20--0920 

26—0390 




11—0880 


26—0460 



Input of literal 


03--1520 


This option permits the names of the SCATLE parameters to 

(BCD) con- 




be entered into the SRCH -array on NAMELIST data cards. 


stants on 




This is accomplished by enclosing the parameter names in 


NAMELIST 




apostrophes. Since these literal constants have less than six 

data cards 




characters, they are left adjusted with the remaining charac- 
ters set to blanks, for example, $TSP N=3, SRCH= f RI r , f VO T , 
WVT $ will cause the SRCH -array to appear in the machine as 





SRCH(l) RIbbbb 
SRCH(2) VObbbb 






SRCH (3) WVIbbb 


Generate 


01--0290 


CALL SAND(X) initializes the procedure for generating random 1 

random 




numbers. 


numbers 


31—0140 


Each CALL RAND(Y) generates a new random number. 


Printed plots 


21—0740 


Each CALL PLOTXY(XDOWN, YACROS, KODE, P) gen--' 
erates a single curve plot. 



21 — 1160 

23—0390 

24—0590 

Each CALL PLOTMY(XDOWN, YACROS. KKK, P) gen- 



22—1080 

23—0610 

24—0940 

erates a multiple curve plot. 

►Ref. 5 



21—0720 


Each CALL SORTXY(V, W, NPTS) rearranges the NPTS 
of the V-array in order of increasing size. The ele- 
ments of the W -array are moved to maintain the original 
pair -relation. j 
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Typical output listings . - The SCATLE output presented in this section is a portion of 
the output generated by running the standard potential case and the six example cases of 
the previous section. The first four pages of output from example 1 are shown. Values 
for the input variables and several initial calculations are listed on the first page, and 
the second through fourth pages contain all output from the search procedure. The last 
six pages of output from example 1 are not included since they correspond to the second 
page and to the last five pages of output from example 3. 

Example 2 produces 40 pages of output. The portion presented here includes the 
initial page, and the initial and final parameters for each search procedure. 

All 12 pages of output from example 3 are listed. The input potential parameters of 
this example agree to four figures with the final values of the search of example 1. 
Therefore, the final output values from example 1 are quite similar to the output values 
from example 3. The output from examples 4, 5, and 6, which consists of 21 pages, is 
not listed herein. 

RUN NUMBER 1 STANDARD POTENTIAL CASE WITHOUT EXPERIMENTAL 0ATA 

CONTROLS 

N * 1 2 3 4 5 6 7 8 9 10 11 12 13 

KL ( N )= 1000000000000 

KTtN)- 1000000000000 
K X { N ) - 000300 1000000 

BASIC INPUT DATA 

FMI= 1.00783 FMB= 27.97693 EL AB = 18.820 11 = 14. 

XN0RM= 1.0000000 SN0RM= 1 . JMAX= 35 NP= 0 


nuclear potential parameters 


V0= 60.000C00 

V$= 6.0000000 
VS0DD= 0 

W I = 6.0000000 
WV 1= 0 
WS= 0 

A0= 0 

A I = 0.8000000 
AS= 0.6000000 

R0- 0 

Rl = 1.2000000 
R$= 1.0000000 
RC= 1.2500000 


BASIC 

COMPUTED QUANTITIES 


RH0R0= 0 

RH0R I = 3.3497156 

RH0RS= 2.7914296 

RH0RC= 3.4892870 

ECM= 18.165609 

K = 0.9195175 

KAS= 0.5517105 

K A I = 0.7356140 

ETA= 0.5101995 


integration data 


RH0H AX= 25.000000 

L MAXM=2 5 

NM AX = 3 


RH0IN= 0.0500 

0.5000 25.0000 



DRH0IN= 

0.0500 0.5000 




RUN NUMBER 1 STANDARD POTENTIAL CASE WITHOUT EXPERIMENTAL DATA 


THETA 

SIGMATH 

SIG/SIGC 

POL TH 

5.0000000 

19502.611 

0.9172991 

1.6765 503E- 0 3 

10.000000 

1066.8035 

0.7997761 

1.2657248 E— 02 

15.000000 

230.55717 

0.8694993 

1.51 16542E-0 2 

20.000000 

96.579293 

1.1409455 

-1.6100620E-02 

25.000000 

50.409868 

1.4373500 

-7. 387923 7E -02 

30.000000 

26.120771 

1.5228981 

-0.1570987 

35.000000 

11.937901 

1.2682216 

-0.2856010 

40.000000 

4.2748480 

0.7600241 

-0.5127966 

45.000000 

1.0820086 

0.3015014 

-0.8231835 

50.000000 

0.7001327 

0.2901839 

0.2469563 

55.000000 

1.7489625 

1.0330060 

0.4659013 

60.000000 

3.2012861 

2.5995876 

0.3104368 

65.000000 

4.4103024 

4.7756708 

0.1785 101 
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70.000000 

5.0628741 

7.1197093 

6.9308369E- 

75.000000 

5. 1076718 

9. 1140505 

— 2.6 1 57 600E- 

80.000000 

4.6556681 

10.326472 

“0. 1097795 

85.000000 

3.8846824 

10.514505 

-0.1769103 

90.000000 

2.9837244 

9.6916710 

-0.2157031 

95.000000 

2.1152926 

8.1207087 

-0.2042394 

100.00000 

1.3936460 

6.2354569 

-0.1051392 

105.00000 

0. 8831912 

4.5459146 

0.1279789 

110.00000 

0. 6042636 

3.5349597 

0.4517522 

115.00000 

0.5408755 

3.5556094 

0.5669629 

120-00000 

0.6502372 

4.7521958 

0.3688893 

125.00000 

0.8742473 

7.0315315 

0.1591130 

130.00000 

1. 1498138 

10.079298 

7.4726537E 

135.00000 

1.4179195 

13.421867 

0.1040219 

140.00000 

1.6318933 

16.532366 

0.2156623 

145.00000 

1.7625985 

18.946604 

0.3035882 

150.00000 

1. 8008391 

20.368075 

0.5825254 

155.00000 

1.7560279 

20.728001 

0.7800936 

160.00000 

1.6520144 

20. 189225 

0.9302291 

165.00000 

1.5210953 

19.095482 

0.9704754 

170.00000 

1.3970447 

17.876693 

0.8344227 

175.00000 

1.3094758 

16.948968 

0.4914119 


NUMBER 1 

STANDARD POTENTIAL 

CASE WITHOUT EXPERIMENTAL 

DATA 


L 

REAL C (L+l/2 ) 

IMAG CIL+1/2) 

REAL CIL-1/2) 

IMAG CIL-I/21 

0 

0.4108870 

0.5872918 

0.4158149 

0. 5329699 

l 

0. 1612435 

0.2797029 

4. 7274854E-03 

0.2355706 

2 

-0. 2608620 

0.1779562 

-0.4199165 

0. 3899489 

3 

-0. 2886678 

0.4682251 

0.1319349 

0.4436573 

4 

0. 1623717 

0.1346650 

7.044421 9E-02 

4. 44564 40 E- 02 

5 

3.C956736E-02 

7. 545 7 8 97 E — 03 

1.1048209E-02 

4. 161 26 77E-03 

6 

3. 1027100E-03 

5.14 975 04E-04 

-7.9829085E-04 

3. 7459L59E-04 

7 

-1. 9256093E-03 

3 .97586406—05 

-2.7292 77 7E-03 

3.6686320E-05 

8 

-2. 5147565 E- 03 

8. 56307 05 E- 06 

-2. 6822239E-03 

9. 1 13 7 C80E-06 

9 

-2.25136606-03 

5. 1906080 E— 06 

-2. 28 62 27 9E -03 

5. 3 25 5428E-06 

10 

-1.86 07633 E- 03 

3. 4660762E— 06 

-1 .8680033E-03 

3. 49634 92E-C6 

11 

-1.47542996-03 

2.1772015E— 06 

-1.47695076-03 

2.1 80 9079E-06 

12 

-1. 1506 343£— 03 

1.32420826-06 

—1.1 509994E-03 

1. 3236396E-06 

13 

-8. 7950244E-04 

7.7337465E-07 

-B.7961549E-04 

7. 7345t72E-07 

14 

-6.39 146336-04 

4 .08645906-07 

-6. 39 1 872 5 E -04 

4.0775446E-C7 

15 

-4. 5268404E-04 

2.0605891E-07 

-4.5271553E-04 

2.C5068666-07 

16 

—3. 2030407E-04 

l. 0182136 E-07 

-3.2031 742E-04 

1.02885 96 E-07 

17 

-2.C949129E-04 

4. 4 04 9 8 70 E— 08 

-2.0949131E— 04 

4.47411 54E-08 

18 

-1. 1748969E— 04 

1. 3565904E-08 

-1.1 7 5 040 2 E -04 

1.32548 14E-08 

19 

-6. 1564481E-05 

3.864111 7E-09 

-6. 1572863E-05 

3. 73 380 10E— 09 

20 

-3. 7483953E— 05 

1.0 72 54 8 9£— 09 

-3.7488161E-05 

1. 3687664E-C9 

21 

-2.5147021E-O5 

5.8122986 £— 1 0 

—2. 51 6658 8E -05 

2.6 I01E41E-10 

22 

-1.3541272 E— 05 

3.4524781E-10 

-1.3554924E-05 

1.4652 123E-10 

23 

-3. 68357786-06 

4.00094856—1 1 

-3.6806699E-06 

2. 1660470E-10 

24 

1.6714246E-06 

8.0880384E— 11 

l. 671422 2E -06 

1.95995 67 E- 10 

25 

2. 87669486-06 

8.751 1669E-11 

2. 876696 7E- 06 

-4. 1 38 3 4 39E- 12 


RUN NUMBER 

1 

STANDARD POTENTIAL 

CASE WITHOUT EXPERIMENTAL DATA 



L 

ET A 1 

ETA2 

DELR1-DELPR 

DELPI 

DELR2-DELMR 

DELMI 

0 

0.8401144 

0.8342400 

0.8900657 

8.7108624E-02 

0.8249604 

9.061 7098E-02 

1 

0.5460046 

0.5289432 

0.3159200 

0.3025639 

8.9380804E-03 

0.3184371 

2 

0.8288815 

0.8681960 

2.8011822 

9. 383901 5E-02 

2.4843516 

7.0668893E-02 

3 

0.5808226 

0.2869239 

2.4110109 

0 . 2716549 

0.5835958 

0.6242692 

4 

0.7995855 

0.9219161 

0.2091128 

0. 1118309 

7.6711 250E-02 

4.0650533E-02 

5 

0.9868525 

0.9919236 

3 ■ 1 3897 77E-02 

6. 6173484E-03 

1.1 139087E-02 

4.0545914E— 03 

6 

0.9989893 

0.9992521 

3. 105 86 90 E- 03 

5.0559862E-04 

3. 1 407938 

3 • 740957 2E -04 

7 

0.9999279 

0.9999415 

3.1396669 

3. 60 5465 9E— 05 

3. 1 388632 

2.9240658E-05 

8 

0.9999955 

0.9999962 

3.1390779 

2.2426297E-06 

3.1389104 

1.9222535E-06 

9 

0.9999997 

0.9999998 

3.1393413 

l. 2665988E-07 

3. 1393065 

1.1 175872E-07 

10 

l.OCOOOOO 

l. 0000000 

3.1397319 

7.4505806E— 09 

3.1397247 

1. 1175871E-08 

11 

l.OCOOOOO 

1.0000000 

3.1401173 

3.7252903E-09 

3. 1 40 1 157 

-o 

12 

L .0000000 

1.0000000 

3.1404421 

3. 7252903E-09 

3. 1404417 

-0 

13 

1.0000000 

1.0000000 

3.1407132 

-0 

3. 1407131 

-0 

14 

1.0000000 

1.0000000 

3.1409535 

-0 

3. 1409 535 

-0 

15 

1.0000000 

1.0000000 

3.1411400 

3. 7252903E-09 

3.1411400 

3 .7 25 290 3E -09 

16 

1.0000000 

l. 0000000 

3.1412724 

-o 

3.1412724 

-0 

17 

1.0000000 

1.0000000 

3.1413832 

-0 

3. 1413832 

7. 45058066-09 

18 

l.OCOOOOO 

1.0000000 

3.1414752 

-0 

3.1414752 

-0 

19 

1.0000000 

1.0000000 

3.1415311 

3* 72 5 2903 E— 09 

3.1415311 

3.7 252903 E -09 

20 

1.0000000 

1.0000000 

3.1415552 

3. 7252903E-09 

3. 1415552 

3.7252903E-09 

21 

l. 0000000 

1.0000000 

3.1415676 

3. 725 2903E-09 

3.1415675 

3.725 290 3 E -09 

22 

l.OCOOOOO 

1.0000000 

3.1415792 

3.7252903E— 09 

3.1415792 

3.72529036-09 

23 

1.0000000 

1.0000000 

3.1415890 

3. 7252903E— 09 

3.1415890 

3. 72529036-09 

24 

1.0000000 

1.0000000 

1. 6714246 E— 06 

3. 7252903E-09 

1. 6 71 4222 E— 06 

3.725 290 3E -09 

25 

1.0000000 

1.0000000 

2. 8766948 E— 06 

3. 7252903E— 09 

2.8 766 967 E— 06 

-0 
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RUN NUMBER 1 

EXAMPLE 1 

SILICON 28 (PtP) E= 18.62 SINGLE CASE 

SEARCH 

N = 

1 2 

3 4 

CONTROLS 

5 6 7 8 9 

10 11 

12 13 

KL ( N ) = 
KT(N)= 
KXIN)= 

1 1 

4 0 

1 o 

0 3 

0 o 

0 3 

0 0 0 0 0 
0 0 0 0 0 
0 0 2 0 0 

0 0 
0 0 
0 0 

0 0 
0 0 
0 0 




BASIC INPUT DATA 



FMI= 1.00783 

FMB= 

27.97693 

ELAB= 18.820 


ZZ= 14. 

XNORM= 1.0000000 

SNORM= 

1. 

JMAX= 44 


NP= 10 



NUCLEAR POTENTIAL PARAMETERS 



V0= 6O.OOOCO0 

VS= 6.0000000 
VSCDD= 0 

W 1 = 
WVI = 

W S= 

6.0000000 

0 

0 

A0= 0.8000000 
AI= 0.8000000 
AS= 0.5000000 


R0= 1.0500000 
R I = 1.2000000 
RS= 0.9500000 
RC= 1.2500000 



BASIC 

COMPUTED QUANTITIES 



RHORO= 2.9 31 0011 

RHORI = 

3. 3497156 

RHORS= 2.6518582 

RHORC= 3.4892870 

ECM= 18.165609 

K - 

0.9195175 

K A S= 0.4597588 

KAI= 0.7356140 

ETA= 0.5101995 



INTEGRATION DATA 



RHOMAX= 15.000000 


LMAXM=15 

NMftX= 4 


RHO I N= 0.0500 

0. 5000 

5.0000 

15.0000 



DRH0IN= 0. 

0500 0, 

. 1000 

0.2000 




RUN NUMBER 1 EXAMPLE 1 SILICON 28 <P,P) E=18.82 SINGLE CASE SEARCH 

VARIABLE METRIC MINIMIZATION 


N= 6 K= 0 E= l.OOOOOE-Ol P= 0- DEL TA= 2 . 0000E-23 

NHP= 5 NMLR = 5 NPCT= 5 PCT= 0.5000 



VO 

WI 

VS 

AO 

A I 

X= 

60.0000 

6.00000 

6.00000 

0-80000 

0.80000 


AS 

0.50000 


5.0COOOE-03 

0. 

0. 

0. 

0. 

0. 


0. 

5 . OOOOOE-O 3 

0. 

0. 

0. 

0 . 


0 . 

0 . 

1.00000E-03 

0. 

0. 

0. 


0. 

0. 

0. 

1 .00000E-05 

0. 

0. 


0. 

0. 

0. 

0. 

I . OOOOOE-05 

0. 


0. 

0. 

0. 

0 . 

0. 

i.oooooe-o5 


IT 

0 STEP 

0 F= 8 . 24 1 82 E 02 




VO 

WI VS 

AO 

A I 

X— 

60.0000 

6.00000 6.00000 

0.80000 

0.80000 

G= 

52.5208 

-860.764 -49.7360 

6317.90 

-5573.81 

ENORM 

= 1.34307 

SIGMAR{TH)= 95.4705 

CHI 2T= 

824.182 


AS 

0.50000 

299.988 

CHI 2ST= 536.556 CHI2PT* 287.626 


IT 1 STEP 0 F= 5.00752E 02 GS= -4.43157E 03 


DELTA= 5.15794E-24 


VG 

WI 

VS 

AO 

A I 

AS 




X= 59.9574 

6.69885 

6.00808 

0.78974 

0.80905 

0.4995L 




G= -0.33951 

31. 1241 

-35.8391 

2025.79 

354.729 

253.906 




ENORM= 1.15326 

SIGNAR t TH ) = 99.7806 

CHI 2T= 

500.752 

CH I 2ST= 

311.254 

CH I 2 PT ~ 

189.498 

IT 2 STEP 0 

ll 

bL 

78168E 02 GS= -4. 

8 1 788E 01 






DEL T A= 4.85679E- 

24 








VO 

WI 

VS 

AO 

A I 

AS 




X= 59.9575 

6.60671 

6.04225 

0.77005 

0.80651 

0.49711 




G= -0.45776 

5.70679 

-22.8806 

-42.9916 

-149.574 

46.7300 




ENORM= 1.16026 

SI GM AR ( TH ) = 98.2166 

C H I 2T = 

478.168 

CHI 2ST= 

282.282 

CHI 2PT= 

195.886 
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UNDERSHOT 


IT 3 STEP 


0 F= 4.76723E 02 GS= -8.96794E-01 


DELTA= 9.71 357E-24 

VQ WI VS 

X= 59 • 96 14 6.57218 6.00883 

G= -0.78201 -1.23215 -12.1346 

ENORM= 1.16164 SIGMAR(TH) = 98.3731 


AO A I 

0.76997 0.80976 

3.70026 -182.610 

CHI 2T = 476.723 


AS 

0.49609 

-13.8855 

CH I 2ST= 280.158 


CHI 2PT= 196.565 


UNDERSHOT 


IT 4 STEP 0 F= 4.75603E 02 GS= -7.66493E-01 


DELTA= l .9427 IE— 23 


VO 

WI VS 

AO 

AI 

AS 

X* 59.9719 

6.53323 6.14188 

0.76961 

0.81487 

0.49569 

G= 0.37384 

-0.19836 -0.98419 

14.7247 

-130.577 

-70.7245 

ENORH= 1.16142 

SI GMAR (TH )= 98.6894 

CH I 2T= 

475.603 

CHI2ST : 


CHI 2PT= 197.861 


UNDERSHOT 

IT 5 STEP 0 F= 4 . 749 80 E 02 GS = -3.98690E-01 

DELT A= 3.88 543E-23 


VO 

X= 59.9739 

G= 1.52969 

ENORM= 1.16131 

WI VS 

6.49360 6.17759 

1.75476 4.82559 

SI GMAR (TH I = 99.0121 

AO 

0.76908 

23.8037 

CHI2T 

AI 

0.82017 
-79.8416 
* 474.988 

AS 

0.49669 

-98.8770 

CHI 2ST = 276.564 

CH I 2PT= 

ERROR MATRIX 







5.04H6E-03 

— 1 . 651 15E- 04 

2. 80492E— 04 

—6. i 93 68 E— 06 

2.8 1032E-05 

- 1 • 581 1 7E— 06 


—1.651 1 5E- 04 

3. 41031 E— 03 

-2.06964E-03 

5 . 26835 E— 05 

-2.82769E-04 

-8.86554E-06 


2.80492E-04 

— 2 • 06964 E- 03 

3.34332E-03 

— 2 • 73925 E-05 

2 .484656—04 

1.20495E-06 


-6. 193686-06 

5 • 268 35E- 0 5 

-2.7 3925E-05 

9 .54302 6—06 

-2.76653E-06 

- 1 • 74 2 92 £—07 


2.81032E-05 

-2.827696-04 

2.48465E— 04 

-2.766536-06 

3.802786-05 

1.67708E-06 


—1.5811 7E-06 

-8.86554E-06 

1.20495E-06 

-1.74292 E— 0 7 

1 • 67708E— 06 

1.09893E-05 



UNDERSHOT 


IT 6 STEP 


0 F= 4.74410E 02 GS= -3.42403E-01 


DELTAS 7.77086E-23 


VO 

X= 59.9608 
G= 3.14713 
ENORM= 1.16105 


WI VS 

6.45270 6.19294 

0.89264 5.29099 

SIGMAR(THI= 99.2832 


AO 

0.76825 
27. 1988 

CHI 2T= 


A I 

0.82521 

-50.3159 

474.410 


AS 

0.49917 

-86.3266 

CH I 2ST= 276.579 


CHI2PT* 197.831 


UNDERSHOT 

IT 7 STEP 0 F- 4.73741E 02 GS= -3.94979E-01 


A I 

0.83076 

33.3023 

473.741 


DELT A= 1.5 541 7 E — 22 

VO WI VS 

X— 59.9200 6.40765 6.19710 

G= 3.28445 0.22888 2.38419 

ENORM= 1.16227 SIGMARITH)= 99.5622 


AO 

0. 76707 
14.6866 

CH I 2T= 


AS 

0.50301 

-61.5692 

CH I 2ST= 277.513 


CH I 2 PT= 196.227 


UNDERSHOT 


IT 


STEP 0 F= 4. 731 41 E 02 GS= -4.24909E-01 


DELTA= 3 « 1 083 4 E-22 

VO WI VS 

X= 59.8513 6.34207 6.20859 

G= 2.78473 -1.94550 0.15259 

ENORM= 1.16285 SIGMAR(TH>= 99.9777 


AO A I 

0.76545 0.83893 

7.82013 -17.6620 

CHI 2T= 473.141 


AS 

0.50854 

-30.0980 

CHI2ST= 278.962 


CHI 2PT= 194.179 


UNDERSHOT 


IT 9 STEP 


0 F— 4 • 729 37 E 02 GS = -1.91945E-01 


OELTA= 6.2 166 8E— 22 

VO WI 

VS 

AO 

AI 

AS 

X- 59.7770 6.29418 

6.21655 

0. 76418 

0.84546 

0.51340 

G- 0.51117 -0.40817 

-2.03705 

-6.17981 

1.71661 

-10.3760 

ENORM= 1.16243 SI GMAR ( TH ) = 100.329 

CH I 2T= 

472.937 

CHI 2ST : 


CHI2PT* 192.377 
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H 


1.61791E-02 

8. 67207E— 03 

—1 • 20793E— 03 

2.20589E— 04 

-1. 12486E— 03 

-8.18465E-04 




8.67207E-03 

1.14332E-02 

-3.5 8654E-03 

2.52970E-04 

-1.31386E-03 

-7.09034E-04 




-1.20793E-03 

— 3 • 58654E- 0 3 

3.68662E-03 

”6.3 94 99 E— 05 

4.42508E-04 

1.26851E— 04 




2.20589E-04 

2.52970E-04 

—6 . 39499 E— 0 5 

1 .45785E-05 

-2.85654E-05 

-1.78690E-05 




— 1. 1 2406E-O 3 

-1.31386E-03 

4.42508E-04 

-2.85654E-05 

1.70831E-04 

9.22064E-05 




—8. I 8465E-04 

-7.09034E-04 

1.26851E-04 

-1 .78690E-05 

9.22064E-05 

7 • 36106E— 05 




FINAL VALUES 









ERROR MATRIX 









1.61791 E- 02 

8.67207E-03 

-1.20793E-03 

2.20589E-04 

— 1 . 1 2486E— 03 

-8. 18465E— 04 




8.67207E-03 

1.14332E-0 2 

—3. 5 8654E-03 

2 . 52970E— 04 

-1.31386E-03 

-7.09034E— 04 




-1.20793E-D3 

— 3. 5 8654 E- 03 

3.6 8662E- 03 

-6.39499E-05 

4.42508 E-04 

1 • 26851E— 04 




2. 20589E-04 

2.52970E-04 

—6. 39499E— 05 

1.45785E-05 

-2.85654E-05 

- 1. 78690E— 05 




-I. 12486E-03 

-1.31386E-03 

4.42508E— 04 

—2 . 85654E-05 

l . 7083 IE — 04 

9. 22064E-05 




-8. 18465E-04 

-7. 09034E- 0 4 

1.26851E-04 

— 1 • 78690E— 05 

9.22064E-05 

7.36106E-05 




DELTA= 6.21668E-22 F= 4.72937E 02 GS= 

VO HI VS 

X= 59.7770 6.29418 6.21655 

G= 0.51117 -0.40817 -2.03705 

ENORM* 1.16243 SIGMAR(TH)= 100.329 

-2.14612E-02 

AO 

0.76418 

-6.17981 

CHI2T 

A I 

0.84546 
1.71661 
= 472.937 

AS 

0.51340 

-10.3760 

CHI2ST* 

280.560 

CHI 2 PT = 

192.377 

SUM 

OF CHI SQUARES / 34. 

CHI2T 

= 13.9099 

CHI2ST= 

8.25177 

CHI 2PT= 

5.65814 


RUN NUMBER 2 

EXAMPLE 2 


SILICON 28 

(P,P> E=18 

.82 


SEARCH 

HI TH 

GRID 

ON AO 






CONTROLS 







N = 

1 

2 

3 

4 

5 

6 7 

8 

9 

10 

11 

12 

13 

KL(N)= 

1 

l 

0 

3 

0 

0 0 

0 

0 

0 

0 

0 

0 

KT { N ) = 

3 

0 

0 

0 

0 

0 0 

0 

0 

0 

0 

0 

0 

KX IN)* 

1 

0 

0 

3 

0 

0 2 

0 

0 

0 

0 

0 

0 






BASIC 

INPUT DATA 







FMI= 1.00783 


FMB= 

27. 

97693 


EL AB= 

18. 

820 



ZZ= 

14. 

XNORMa 1.0000000 


SNORM= 

1. 



JMAX= 

44 




NP= 

10 



NUCLEAR POTENTIAL PARAMETERS 


V0= 60.000000 

VS= 6.0000000 
VSCDD* 0 

Hi- 6.0000000 
HVI* 0 
HS= 0 

AQ= 0.7000000 
AI= 0.8000000 
AS= 0.5000000 

R0= 1.0500000 
RI= 1.2000000 
RS= 0.9500000 
RC= 1.2500000 


BASIC 

COMPUTED QUANTITIES 


RHORO* 2.9310011 

RHORI * 3.3497156 

RHORS= 2.6518582 

RHORC= 3.4892870 

ECM= 18.165609 

K = 0.9195175 

KAS* 0.4597588 

K A I = 0.7356140 

ETA= 0.5101995 


INTEGRATION DATA 


RHOMAX= 15-000000 

LMAXM*15 

NMAX* 4 


RH0IN= 0.0500 

0.5000 5.0000 

15.0000 


ORHO I N= 

0.0500 0.1000 

0.2000 



V0= 60.000000 W 1= 6.0000000 A0 = 0.7000000 

HVI= 0 AI= 0.8000000 

VS= 6.0000000 WS= 0 AS= 0.5000000 

VS00D= 0 

VARIABLE METRIC MINIMIZATION 


N= A K= 0 E = 1.00000E-01 

NHP* 5 NMLR= 5 NPC T- 

VO HI 

X= 60.0000 6.00000 


P= 0. DELT A= 

5 PCT= 0.5000 

VS A I 

6.00000 0.80000 


2.50000E-13 


R0= 1.0500000 
RI = 1.2000000 
RS= 0.9500000 


42 



H 

5.0COO0E-03 0. 0. 0. 

0. 5.00000E-03 0. 0. 

0. 0. 1 • OOOOOE— 03 0. 

0. 0. 0. 1 • OOOOOE-05 

IT 0 STEP 0 F» 8.39127E 02 

VO WI VS A! 

X* 60.0000 6.00000 6.00000 0.80000 

G* 10.7988 -5*5.662 -6.73676 -*952.93 

ENORM* 1.29B09 SIGMAR(TH)* 91.3161 CHI2T= 839.127 CHI2ST* *38.63* CHI 2 PT* *00. *92 


UNDERSHOT 

IT 8 STEP 0 F= 6.09582E 02 GS= -2.03**0E-01 
DELTA* 5. *95 1 OE- 13 

VO WI VS A I 

X* 58.9726 5.282*8 6.0232* 1.00881 

G= 9.15 527E-02 -2.3193* 5.39398 -0.*5776 

ENORM* 1.15287 SIGMAR(TH)* 108.857 CHI2T* 609.582 CHI2ST* 286.220 CHI 2 PT* 323.362 


V0= 60.000000 W 1= 6.0000000 AO* 0.8000000 

WV 1= 0 A I - 0.8000000 

VS* 6.0000000 WS= 0 AS* 0.5000000 

VSODD* 0 

VARIABLE PETR I C MINIMIZATION 

N= * K= 0 E= l.OOOOOE-Ol P 
NHP= 5 NMLR= 5 NPCT* 5 

VO WI 

X* 6C.0000 6.00000 

H 

8. *6098E— 03 2.22** 9E-03 -1.36860E-03 -5.177*2E-0* 

2.22**9E-03 2.*5093E-03 -5.73725E-0* -3.98*57E-0* 

— 1. 36860E-03 -5.73725E-0* 1.8832*E-03 1.67550E-0* 

-5.1 77*2E-0* - 3 . 98*57E- 0* 1.67550E-0* 9.1580*E-05 

IT 0 STEP 0 F = 8 . 2* 1 82E 02 

VO WI VS A I 

X = 60.0000 6.00000 6.00000 0.80000 

G* 52.5208 -860.76* -*9.7360 -5570.22 

ENORM= 1.3*307 SIGMAR ITH ) = 95. *705 CHI2T* 82*. 182 CHI2ST= 536.556 CHI2PT= 287.626 


COLINEAR 

IT 5 STEP 0 F* 5.19893E 02 GS= -5.06950E-01 
DELTA* 5.5B919E— 13 

VO WI VS A I 

X* 60.2*13 6.967** 6.L9267 0.77580 

G* -1.57928 -2.81525 -l.*3*33 -31. *331 

ENORM= 1.15890 SIGMARITHI* 98.1721 CHI2T= 519.893 CHI2ST= 307.338 C H I 2 PT = 212.555 

VO* 60.000000 WI* 6.0000000 AO* 0.7000000 RO* 1.0500000 

WV I* 0 A I = 0.8000000 RI= 1.2000000 

VS= 6.0000000 WS= 0 AS* 0.5500000 RS= 0.9500000 

VSODD* 0 

VARIABLE METRIC MINIMIZATION 

N= * K= 0 E = l.OOOOOE-Ol P* 0. DELTA* 5.58919E-13 

NHP* 5 NMLR* 5 NPCT= 5 PCT= 0.5000 

VO WI VS A I 

X* 60.0000 6.00000 6.00000 0.80000 

H 

6 • 78*25E-03 1.70795E-03 -7.69296E-0* -3.*2263E~0* 

1.70795E-03 5.15069E-03 *.09*2lE-0* -6.01555E-0* 


= 0. DELTA* 5.*9510E-13 

PCT= 0.5000 
VS A I 

6.00000 0.80000 


R0= 1.0500000 
R I = 1.2000000 
R S= 0.9500000 
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-7.69296E-04 4.09421E-04 1. 724246-03 -1.20906E-05 

-3.42263E-04 -6.01555E-04 -1.20906E-05 8.48659E-05 

IT 0 STEP 0 F= 8.298916 02 

VO MI VS A I 

X= 60.0000 6.00000 6.00000 0.80000 

G= 32.6233 -542.244 -57.2357 -4910.58 

6N0RM= 1.30165 SIGMAR(TH)* 91.3337 CHI2T= 829.891 CHI2ST= 448.990 CHI2PT* 380.901 


RICOCHET 

IT 4 STEP 0 F= 5.89731E 02 GS = -1.08734E-01 

OELTA= 5. 58886E— 13 

VO MI VS A I 

X= 58.8634 5.25787 6.23021 1.01314 

G= -0.64087 1.31989 -1.92261 -0.99182 

ENORM= 1.15455 Si GM AR { TH ) = 109.168 CHI2T* 589.731 CHI2ST* 289.685 CHI2PT= 300.047 


V0= 60. 00 OC 00 W I- 6.0000000 A0= 0.8000000 

WV 1= 0 A I = 0.8000000 

V S= 6.0000000 MS= 0 AS= 0.5500000 

VSODO- 0 

VARIABLE METRIC MINIMIZATION 

N= 4 K= 0 E= 1 .OOOOOE-O 1 P 
NHP- 5 \l M LR » 5 NPCT= 5 

VO WI 

X= 60.0000 6.00000 


H 

8.67082E-03 3.27192E-03 -1.09463E-03 -6.87075E-04 

3.27192E-03 4.12951E-03 -5.047156-04 -6.349276-04 

— 1 . 0 946 3E— 03 -5.04715E-04 1. 567026-03 1.04119E-04 

—6. 87075 E- 04 -6.34927E-04 1.041196-04 1.18829E-04 

IT 0 STEP 0 F= 8.47453E 02 

VO MI VS A I 

X= 6C.0000 6.00000 6.00000 0.80000 

G= 63.6749 -858.528 -86.1053 -5461.43 

ENORM= 1.34704 SI GMAR (TH J = 95.4813 CHI2T= 847.453 CHI2ST* 551.122 CHI2PT= 296.331 


RICOCHET 

IT 5 STEP 0 F= 5.31088E 02 GS= -4.272646-01 
DEL T A= 9.33008E-13 

VO MI VS A I 

X= 60.2372 7.01321 6.47004 0.76998 

G= -0.69427 2.74658 3.73077 -3.96729 

ENORM= 1.16036 SIGMAR(TH)= 97.8084 CHI2T= 531/088 CHI2ST= 307.648 CHI2PT= 223.440 


RUN NUMBER 1 

EXAMPLE 3 


SILICON 28 

<P,P> 6=18 

.82 SINGLE 

CASE 







CONTROLS 





N = 

1 

2 

3 

4 5 

6 7 

8 9 10 

11 

12 

13 

KL ( N )= 

1 

l 

0 

3 0 

2 0 

0 0 0 

0 

1 

0 

KT(N)= 

1 

0 

0 

0 0 

0 0 

0 0 0 

0 

0 

0 

KXtN)= 

1 

0 

0 

3 0 

0 2 

0 0 0 

0 

0 

0 





BASIC 

INPUT DATA 





FM I = 1.00783 


FMB* 

27. 

97693 

ELAB = 

18.820 


zz= 

14. 

XNGRM= 1.0000000 


SNOR M= 

1. 


JMAX = 

44 


NP= 

10 


= 0. DELTA* 5.58886E-13 

PCT= 0.5000 
VS A I 

6.00000 0.80000 


R0= 1.0500000 
RI= 1.2000000 
RS= 0.9500000 
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NUCLEAR POTENTIAL PARAMETERS 

VO= 59.700000 HI* 6.2940000 AO* 0.7642000 

WVI* 0 AI * 0.8455000 

VS* 6. 2170000 WS= 0 AS* 0.5L34000 

VSODD* 0 

BASIC COMPUTED QUANTITIES 

RHORO* 2.9310011 RHORI= 3.3497156 RhORS* 2.6518582 

ECM= 18.165609 K= 0.9195175 KAS* 0.4720803 

ETA* 0.5101995 

INTEGRATION DATA 

RHOMAX- 15.000000 LMAXM=15 NMAX* 4 

RHOIN= 0 .C 500 0 • 50 00 5.0000 15.0000 

DRHO I N= 0.0500 0.1000 0.2000 

SUM OF CHI SQUARES 

280.52768 CHISQ POL* 192.41044 CHISQ TOTAL* 472.93813 

SUM OF CHI SQUARES / 34. 

8.2508142 CHISQ POL* 5.6591307 CHISQ TOTAL* 13.909945 

REACTION CROSS SECTION AND DATA NORMALIZATION FACTOR 
SIGMAR(TH)= 100.33423 ENORM* 1.1624686 


RUN NUMBER 1 EXAMPLE 3 SILICON 28 (P,P) E=18.82 SINGLE CASE 


THETA 

SIGMA TH 

SIGTH/SIGC 

POL TH 

SIGMA EX 

SIGEX/SIGC 

POL EX 

5. 180 

15679.710 

0.8494833 

1.3878863E-03 

15700.000 

0.8505825 

1.0000000 

7.770 

2666.1137 

0.7299965 

2-5145 1 14E-03 

2350.0000 

0.6434428 

1.0000000 

12.950 

339.09003 

0.7124991 

-1-250367 IE— 02 

262.37600 

0.5513068 

l.OOOOOOC 

15.530 

193.01440 

0.8356875 

-3- 1 2 8552 OE— 02 

135.01600 

0.5845739 

— 7. 6999999 E— 02 

18.120 

126.24218 

l .0085123 

— 5. 299001 3 E— 02 

87.076999 

0.6956330 

l. 0000000 

20.710 

86.685940 

1.1756859 

-7.6033229E-02 

64.942999 

0.8807953 

1.0000000 

23.3C0 

59.235816 

1.2797077 

-0. 1013589 

0.1000000 

2. 160361 4E-03 

-0.1870000 

25.870 

39. 155144 

1 .2772691 

-0.1309221 

20.406000 

0.6656585 

1.0000000 

31.030 

13.803928 

0.9181994 

-0.2197211 

9.0890000 

0.6045753 

-0.2660000 

36.180 

2.7465358 

0.3317344 

-0.4195832 

3.7120000 

0.4483459 

l.OOOOOOC 

38.8C0 

0.7360464 

0.1 164127 

-0.5821097 

0.1000000 

1.581594 7E-02 

- 0. 6 1 7000 C 

41.330 

0.2475967 

4.9896246E-02 

0.361701 1 

0. 5470000 

0.1102327 

1.0000000 

46.460 

1.5288198 

0.4807349 

0.3994871 

1.0110000 

0.3179073 

0.4000000 

51.580 

3.4064788 

1.5858350 

0. 1692597 

2.5090000 

1.1600272 

1.0000000 

54. ICO 

4.0447513 

2.2477649 

0.1075874 

0.1000000 

5 • 5572 388E-02 

0.1610000 

56.690 

4.4045787 

2.9078532 

5.6533065E— 02 

3.6320000 

2.3970055 

l.OOOOOOC 

61.790 

4.2878773 

3.8724900 

—3. 009407 8E-02 

3.7420000 

3.3794944 

-0.1180000 

66.870 

3.4453608 

4.1258313 

-0.1160490 

3.2140000 

3.8487759 

l.OOOOOOC 

69.4C0 

2.9169364 

3.9004220 

-0. 1622959 

0.1000000 

0.1364590 

-0.2360000 

71.940 

2.3880696 

3.6929120 

-0.21 14980 

2.3060000 

3.5660003 

1.0000000 

76.990 

1.4857117 

2 . B 97 6247 

-0.3095006 

1.3630000 

2.6582967 

—0 .4040000 

82.030 

0.8912685 

2.1478465 

-0.3556238 

0.7550000 

1.8194562 

1.0000000 

84.5C0 

0.7130025 

1.8932853 

-0.3218145 

0.1000000 

0.2655370 

-0.451000C 

87.060 

0.5936940 

1.7356793 

-0.2286860 

0.4780000 

1.3974448 

1 .ooooooc 

92.060 

0.4984139 

1.7374185 

7. 0789014E— 02 

0.4540000 

1.5825962 

0.1430000 

97.060 

0.4978162 

2.0389090 

0.3360890 

0.5190000 

2. 1256716 

l.OOOOOOC 

99.5C0 

0.5068773 

2.2347560 

0.4199099 

0.1000000 

0.4408870 

0.5800000 

102.030 

0.5137956 

2.4370749 

0.4788090 

0.5820000 

2.7605874 

1.0000000 

106.990 

0.5078257 

2.7543385 

0.5325628 

0.6070000 

3.2922389 

0.6100000 

111.940 

0.4733559 

2.901 1540 

0.5226408 

0.5240000 

3.2115465 

1.0000000 

114. 4C0 

0.4486754 

2 .9101862 

0.4946923 

0.1000000 

0.6486172 

0 • 5 79000 C 

116.870 

0.4214045 

2.8857124 

0.4499449 

0.4300000 

2.9445730 

1 .0000000 

121.790 

0.3668571 

2.7778280 

0.3097377 

0.3420000 

2.5896114 

0.3400000 

126.690 

0.3206657 

2.6580683 

0.1185059 

0.2850000 

2.3624276 

l.OOOOOOC 

129.100 

0.3024719 

2.6125239 

2.0539314E— 02 

0.1000000 

0.8637245 

8.0000000E-02 

131.580 

0.2869613 

2.5798543 

— 7.0468131E— 02 

0.2690000 

2.4183773 

l.OOOOOOC 

136.460 

0.2648081 

2.5591511 

-0.1827467 

0.2690000 

2.5996619 

— 3.4000000E— 02 

141.330 

0.2510328 

2.5857115 

-0. 1651732 

0.2800000 

2.8840023 

l.OOOOOOC 

143. 8C0 

0.2462748 

2.6119042 

-0. 1033306 

0.1000000 

1 • 060564B 

9. 8000000 E— 02 

146. 180 

0.2427934 

2.6433458 

-1.4842476E-02 

0. 2840000 

3.0919714 

l.OOOOOOC 

151.030 

0.2386700 

2.7250951 

0.2219047 

0. 2910000 

3.3225909 

C .434000 C 

155.870 

0.2384057 

2.0337388 

0.4635839 

0.2650000 

3. 1487874 

0.6800000 

160.710 

0.2421985 

2.9726298 

0.6239240 

0.2530000 

3. 1052019 

l.OOOOOOC 

165.530 

0.2409115 

3.1322618 

0.6461486 

0.2550000 

3.2088786 

0.7400000 


CHISQ SIGMA* 
CHISQ SIGMA= 


R0= 1.0500000 
RI* 1.2000000 
RS= 0.9500000 
RC= 1.2500000 


RHORC* 3.4892870 
KAI* 0.7774521 
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RUN NUMBER 1 
AR 

EXAMPLE 3 SILICON 20 IP,P) 

AI 

E* 18. 82 SINGLE CASE 

BR 

BI 

110.89297 

-58.158817 

-0.1066592 

-1.6281 780E-02 

28.684781 

-42.933341 

-0.1571137 

-2.6897145E-02 

-4.4477044 

-17.867395 

-0.2467559 

-5. 72 23 6 7 0E- 02 

-7.4116112 

-11.747162 

-0.2837676 

-7. 79 85 01 2E-0 2 

-8.0776906 

-7.8027890 

-0.3145912 

-0.1029910 

-7.7054700 

-5.2134220 

-0.3382819 

-0.1321368 

-6.8529771 

-3.4013522 

-0.3541798 

-0.1651236 

-5.7992061 

-2.3136658 

-0.3617489 

-0.2011009 

-3.5643085 

-0.9476917 

-0.3510967 

-0.2797219 

-1.5654690 

-0.2704655 

-0.3060035 

-0.3592358 

-0.7006644 

— 5.6611151E-02 

-0.2706070 

-0.3967471 

1.1170655 E— 03 

0.1037110 

-0.2292403 

-0.4292881 

1.0768472 

0.3515894 

-0.1271914 

-0.4789854 

1.6900079 

0.5484719 

-8 . 49 1617 1 E- 03 

-0.4994504 

1. 8419744 

0.6342305 

5 • 294 1335E-02 

-0.4968207 

1.9092615 

0.7L47209 

0.1162452 

-0.4847271 

1.8252724 

0.8446249 

0.2356366 

-0.4328305 

1.5354735 

0.9236042 

0.3385726 

-0.3464108 

1.3427649 

0.9398961 

0.3808843 

-0.2923032 

1. 1308299 

0.9393402 

0.4160517 

-0.2320222 

0.6903431 

0. 8867367 

0.4613636 

-9.9899782E-02 

0.2741723 

0.7697713 

0.4712799 

3. 801 9395E-02 

9.2433 60 9E— 02 

0.6922601 

0.4630767 

0.1038965 

-7. 5164 06 5 E- 02 

0.6006489 

0.4458346 

0.1688100 

-0.3322382 

0.3983853 

0.3886201 

0.279812$ 

-0.4903354 

0. 1827994 

0.3053906 

0.3615360 

-0. 5323327 

7.9092240E-02 

0.2576258 

0.3884231 

-0. 5533283 

-2.4104075E-02 

0.2045954 

0.4064272 

-0.5361774 

-0.2051836 

9. 4762875 E- 02 

0.41X4112 

-0.4591263 

-0.3467726 

- 1 • 5 26 96 44 E -02 

0.3769279 

-0.4055650 

-0.3996956 

-6.7573149E-02 

0.3462221 

-0.3454292 

-0.4402976 

-0.1173013 

0.3073460 

-0.2176284 

-0.4830369 

-0.2050890 

0.2100211 

-9. 5982666E— 02 

-0.4768410 

-0.2739569 

9. 4990802E-0 2 

-4. 3192271 E— 02 

-0.4574650 

-0.3001632 

3. 51 30587E-0 2 

4.171 3044E-03 

-0.4275293 

-0.3216287 

-2. 67 87462 E-0 2 

7.2572336E-02 

-0.3435374 

-0.3476012 

-0. 1438640 

0. 1046149 

-0.2348674 

-0.3530480 

-0.2455258 

0. 1070159 

-0.1735779 

-0.3486922 

-0.2882827 

0. 1010939 

-0. 1122627 

-0.3404299 

-0.3226112 

6. 72B6364E-02 

1.472 1 980E-02 

-0.3128545 

-0. 3688466 

1. 183498 7E-02 

0.1368083 

-0.2737513 

-0.3803805 

-5.4751443E-02 

0.2465954 

-0.2262742 

-0.3566392 

-0.1210144 

0.3375969 

-0.1734201 

-0.3003678 


NUMBER 1 

EXAMPLE 3 SI 

[ L ICON 28 <P*PJ E=18.02 

SINGLE CASE 


RHOI I ) 

FFCR 

FFCI 

FFSR 

FFS I 

4. 9999999E— 02 

0.9836964 

5-57731 34E-02 

8-01 54006E-02 

B • 0 1540 06E-02 

0.1000000 

0.9825150 

5- 936631 1E“ 02 

4.4514633E-02 

4.45146 33E-02 

0.1500000 

0.9812497 

6.3183208E-02 

3.2959121E— 02 

3 • 29591 21E -02 

0.2000000 

0.9798948 

6. 7236732 E— 02 

2.7450663E-02 

2.7450663E-02 

0.2500000 

0.9784440 

7. 1 54Q345E— 02 

2-4 38401 2 E— 02 

2. 43 84 0126 -02 

0.3000000 

0.9768911 

7-61081 65E-02 

2.2 559 364E-02 

2.2559364E-02 

0.3500000 

0.9752291 

8-0954888 E— 02 

2.I464311E— 02 

2. 14643 l IE -02 

0.4000000 

0.9734508 

8 • 6095843 E— 02 

2.0844365E-02 

2 .08443656-02 

0.4500000 

0.9715486 

9-1 5469 5 6 E— 02 

2 . 0 559780E— 02 

2 . 05597 80E-02 

0.5000000 

0.9695143 

9 • 73 247 77 E— 02 

2 . 0528306E— 02 

2 • 05283 C6E-02 

0.6000000 

0.9650152 

0-1099296 

2.1 039957E-02 

2 . 10399 57E-02 

0.7000000 

0.9598795 

0-1240539 

2.2155285E-02 

2 ■ 21552 85E -02 

0.8000000 

0.9540258 

0.1398492 

2.3 782 535E-02 

2 • 3 7825 35E-02 

0.9000000 

0.9473649 

0-1574732 

2 . 5890 14 IE-02 

2 . 5890 1 41 E -02 

1.0000000 

0.9397999 

0.1770871 

2.8477027E-02 

2.8477027E-02 

1.0999999 

0.9312264 

0. 1988522 

3.1557773E-02 

3. 1 5577 73E-02 

1.1999999 

0.9215340 

0.2229251 

3. 5 1 5322 8E-02 

3.51532 28E -02 

1.2999999 

0.9106066 

0.249451 2 

3.9282 745E-02 

3 • 9282 7 456-02 

1.3999999 

0.8983255 

0.2785579 

4.3956224E-02 

4- 39562 24 E-02 

1.4999999 

0.8845709 

0.3103443 

4.9 16502 8E-02 

4.916502 86-02 

1.5999999 

0.8692265 

0.3448707 

5 . 4871 450E-02 

5 .48714506-02 

1.6999999 

0.8521832 

0.3821458 

6.0997 Oil E-02 

6.09970116-02 

1.7999999 

0.8333445 

0-4221124 

6 . 74 10705E-02 

6. 74107 C5E-02 

1.8999999 

0.8126329 

0.4646328 

7.39 19279E-02 

7.39192 79E-02 

1.9999999 

0.7899958 

0.5094737 

8.0262785E-02 

8 .02627 85E-02 

2.0999999 

0.7654134 

0.5562918 

8.6119311 E-02 

8.61193 11 E-02 

2.1999999 

0.7389044 

0.6046230 

9.1 122676E-02 

9-1 1226 76E -02 

2.2999999 

0.7105327 

0-6538741 

9.4894992E-02 

9.4894992E— 02 

2.3999999 

0.6804115 

0.7033225 

9.7092 385E-02 

9 . 70923856-02 

2.4999999 

0.6487056 

0.7521221 

9 • 7457 039 E-02 

9. 74570 39E-02 

2.5999998 

0.6156311 

0.7993198 

9. 5864 356E-02 

9- 58643 56E- 02 

2.6999998 

0.5814518 

0.8438825 

9.2352284E-02 

9. 23522 84 E-02 

2.7999998 

0.5464722 

0.8847341 

8.7123 209E-02 

8.71232 09E-02 

2.8999998 

0.5110276 

0.9208025 

8.0516 179E— 02 

8.05161 79E-02 

2.9999998 

0.4754718 

0.9510731 

7 .295621 7E-02 

7 .29562 17E-02 

3.0999998 

0.4401630 

0.9746451 

6.4893907E— 02 

6. 4 89 3 9 07 E-02 

3.1999998 

0.4054494 

0.9907860 

5.6749653E-02 

5 .6 7496 53E— 02 

3.2999998 

0.3716560 

0.9989784 

4.8873274E-02 

4.88732 74E -02 

3. 3999998 

0.3390729 

0.9989549 

4. 1523312E-02 

4.15233 12E-02 

3.4999998 

0.3079464 

0.9907163 

3. 48 64 45 5 E-02 

3 -48644 55E-02 
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3.5999998 

0.2784734 

0.9745315 

2. 8977 95 9E— 02 

2. 89779596-02 

3.6999998 

0.2 5079 89 

0.9509192 

2.3879015E-02 

2 • 38790 15E-02 

3.7999998 

0.2250170 

0.9206129 

1 . 9535873E-02 

1.9535873E-02 

3.8999998 

0.2011738 

0.8845143 

1.5887324E-02 

1 .5 8873 24E-02 

3.9999998 

0.1792726 

0.8436386 

1 . 2 856 027 E— 02 

1 . 28568 27E-02 

4 • 0999997 

0.1592803 

0.7990579 

1 .0362841 E— 02 

1.03628416-02 

4.1999997 

0.1411342 

0.7518483 

8.3257 185E-03 

8.32571 85E-03 

4.2999997 

0.1247486 

0.7030424 

6. 6718 1 52E-03 

6 .67181 52E-03 

4.3999996 

0.1100217 

0.6535929 

5. 3 3 55 55 3E— 03 

5 . 33555 53E-03 

4.4999996 

9 . 68409 I8E—02 

0.6043451 

4.2601 I88E— 03 

4.26011 886-03 

4.5999995 

8 . 50882 836-02 

0.5560210 

3. 3972 589E— 03 

3 • 39725 89E-03 

4.6999995 

7.4 6440696-02 

0-5092129 

2. 7 066 355 E-03 

2 .7066355E— 03 

4. 7999995 

6. 5 3902 l 2 E— 02 

0.4643844 

2.1 549 143E— 03 

2.1 549 l 43E— 03 

4.8999994 

5.721 2653E-02 

0.4218779 

1 .7 148030 E-03 

l . 714Q030E-03 

4.9999994 

5. 00030486-02 

0.3819263 

1.3641 142E-03 

1.36411426-03 

5.1999994 

3.80891 18E— 02 

0.3101560 

8 . 6275637E— 04 

8.62756376-04 

5.3999994 

2 . 8 92 74 12E— 02 

0.2492933 

5. 4558 05 4 E-04 

5. 45580 54E-04 

5.5999994 

2. 1919187E-02 

0.1987222 

3 .4511 1696-04 

3.45111696-04 

5.7999994 

1 . 6579851E-02 

0.1573676 

2.18428336-04 

2 * 18428 33E-04 

5.9999993 

1.25244796-02 

0.1239691 

l. 38340526-04 

1. 38348 52E-04 

6. 1999993 

9 . 4 51 50 34E-03 

9. 72572 15 E- 02 

8.7698 380E-05 

8. 76983 80 E-05 

6.3999993 

7.1 2706 35E— 03 

7.60547 16E-02 

5. 5 63840 7 E— 05 

5.56384 07E-05 

6.5999993 

5.371 18 12E— 03 

5.93242436-02 

3. 532855 IE-05 

3.53285516-05 

6.7999993 

4.0461296E-03 

4.6182923 E— 02 

2.2451 173E-05 

2 .24511 73E-05 

6. 9999993 

3.0469625E-03 

3.5897449E— 02 

1.4279202 E-05 

1 - 42792026-05 

7.1999993 

2 .2 939652 E- 03 

2.7869371 E— 02 

9.0888244E-06 

9. 08882 44 E -06 

7.3999993 

1.7267341 E-03 

2.1616641E-02 

5. 7894372 E- 06 

5. 7894372E-06 

7.5999992 

1.299 5802E— 03 

1.67547086-02 

3.6904 180E— 06 

3.69041 80E-06 

7.7999992 

9 . 77990716-04 

1.29790686-02 

2.35402 57E-06 

2.3540257E-06 

7.9999992 

7.35921 956-04 

1.00499206-02 

1 - 5025 522 E— 06 

1 . 50255 22 E- 06 

8. 1999992 

5. 53735 97 E-04 

7 . 7792279E-03 

9.59660176-07 

9. 59660176-07 

8. 3999991 

4.16633466-04 

6. 0200213 E-03 

6.13285486-07 

6 . 1 328 5 48 E -07 

8.5999991 

3.1346628E-04 

4.6577113 E— 03 

3.92151026-07 

3.92151 C2E-07 

8.7999990 

2.3583943E-04 

3 .60312906—03 

2. 50887166-07 

2.50887 166-07 

8.9999989 

l .77432 69 E— 04 

2.7 8 6 98 7 3 E— 03 

1 . 6059334E-07 

1.60593346-07 

9.1999989 

1.33488 7 IE— 04 

2. 1555093E-03 

1.02846846-07 

1.02846846-07 

9.3999988 

1.00427066-04 

l. 6669925 E— 03 

6.5896065E-08 

6.5896065E-08 

9.5999987 

7.5553298E-05 

l. 28912006-03 

4.22400656-08 

4.2 2400 65E-08 

9. 7999986 

5.6 8399 14E-05 

9. 9686047 E-04 

2.7088075E-08 

2.70880756-08 

9.9999986 

4.2761348E— 05 

7.70834326-04 

1.7 378 512E-08 

1. 73785126-08 

10.199998 

3.2169758E-05 

5 .960 4 154 E-04 

1 • i 1 53 746 E- 08 

l. 11537466-08 

10.399998 

2. 42015476-05 

4.60875316-04 

7.1613673E-09 

7.16136736-09 

10.599998 

1.8206966E-05 

3.5635566E-04 

4. 59972316-09 

4.5997231E -09 

10.799990 

1.36971 886—05 

2.75536 26 E— 04 

2.95544006-09 

2.95544C06-09 

10.999998 

1.0304440 E-05 

2.1 30 44 2 7 E— 04 

1.89959746-09 

1.89959746-09 

11.199998 

7 . 7 52 0 7 04 E -06 

1.6472437E-04 

1.2213 6226-09 

1. 22136226-09 

11.399998 

5.8 319045E-06 

1.2736307E-04 

7-8553579E— 10 

7 .85535 79E- 10 

11.599998 

4. 3873556E-06 

9.84752966-05 

5.05383526-10 

5.05383526-10 

11.799998 

3.3006173E-06 

7. 61394 46 E-05 

3.2524 108E- 10 

3.25241 C8E-10 

11.999998 

2.48306106-06 

5.88695846-05 

2.09369976-10 

2.09369976-10 

12.199998 

1.86801 14E-06 

4. 5516769 E-05 

1.3481 684E— 10 

1.3481684E-10 

12.399998 

1.4053080E-06 

3.51925866-05 

8.6834 143E- 1 1 

8.68341 43E -11 

12.599998 

1.05721 55E-06 

2.7210121 E-05 

5.5943534E-11 

5.59435346-11 

12.799998 

7.95344936-07 

2. 10382 3 5 E-05 

3.6051 124E- 1 1 

3 .605 l 1 24E-1 1 

12.999997 

5.98339206-07 

1.62662656-05 

2.3237728E-11 

2.3237728E-il 

13.199997 

4.5013148E-07 

1.25766866-05 

1.4982056E-11 

1 • 49820 56E- 1 1 

13.399997 

3.3863453E-07 

9.72398636-06 

9. 6615 94 2E— 12 

9.6615942E-12 

13.599997 

2.5475525E-07 

7.518 34 7 3 E— 06 

6.2319365E-12 

6.2319365E-12 

13.799997 

1.91652746-07 

5.81299916-06 

4. 0206018 E— 12 

4.0206018E-12 

13.999997 

1. 44180636-07 

4.49446606-06 

2.5944808E-12 

2 . 59448 C86 - 12 

14. 199997 

1.0846729E-07 

3.4750082E-06 

1.6745510E-12 

1.67455 106-12 

14.399997 

8.1 60QQ83E— 08 

2.6867889E— 06 

1 .0810 171E- 12 

1.08101716-12 

14.599997 

6.1387864E-08 

2 . 0773573 E- 06 

6.9799 1986-13 

6.97991986-13 

14.799997 

4.61821716-08 

1.6061600E-06 

4.50764716-13 

4.5076471E-13 

15.000000 

3. 47427506-08 

1 • 24183 71E— 06 

2.91155906-13 

2. 91155906-13 
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PLOT OF UCRB VS RHO 
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PLOT OF FFSR, FFSI, FFCR, ANC FFCI VS RHO 
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RUN NUMBER l EXAMPLE 3 SILICON 28 IP,P) E=18.82 SINGLE CASE 


theta 

OSIGMA EX 

DPOL EX 

CHI SQUARE SIGMA 

CHI SQUARE POL 

CHI SQUARE TOTAL 

5.1800000 

1570.0000 

1. OOOOOOOE 30 

1.6701521E-04 

0 

1.67Q1521E-04 

7.7700000 

235,00000 

1 . OOOOOOOE 30 

1.8094685 

0 

1.8094665 

12.950000 

26.237000 

U OOOOOOOE 30 

8.5491178 

0 

8.5491178 

15.530000 

13.502000 

2. OOOOOOOE -02 

18.451677 

5.2245340 

2 3.676211 

18.120000 

8.7079999 

1. OOOOOOOE 30 

20.228483 

0 

20 .228483 

20.710000 

6.4939999 

1. OOOOOOOE 30 

11.210165 

0 

11.210165 

23.300000 

9. 9999999E 28 

2 • 500 0000 E— 02 

0 

11.735032 

1 1 .7350 32 

25.870000 

2.0410000 

1. OOOOOOOE 30 

84.387260 

0 

84. 3872 60 

31.030000 

0.9090000 

2. OOOOOOOE— 02 

26.904341 

5.3543460 

32.258686 

36.180000 

0.3710000 

U OOOOOOOE 30 

6.7721179 

0 

6.7721179 

38.800000 

9.9999999E 28 

2. 8 OOOOOOE-02 

0 

1.5527248 

1.5527248 

41.330000 

5.4599999E-02 

1. OOOOOOOE 30 

29.633835 

0 

29.633835 

46.460000 

0.1010000 

3. 9 00 0000 E- 02 

26.285394 

l • 72922 19E-04 

26.285567 

51.580000 

0.2510000 

l. OOOOOOOE 30 

12.785007 

0 

12.7850C7 

54.100000 

9.9999999E 28 

2.1 OOOOOOE— 02 

0 

6.4691650 

6 . A 69 1 650 

56.690000 

0.3630000 

1. OOOOOOOE 30 

4.5297294 

0 

4.5297294 

61.790000 

0.3740000 

4. OOOOOOOE- 02 

2.1303302 

4.8295689 

6. S 598990 

66.870000 

0.3210000 

1. OOOOOOOE 30 

0.5194812 

0 

0.5 194812 

69.400000 

9.9999999E 28 

2.20000006-02 

0 

11.223739 

11. 223739 

71.940000 

0.2310000 

1. OOOOOOOE 30 

0.1262237 

0 

0. 1262237 

76.990000 

0.1360000 

4.90000006-02 

0.8141308 

3.7 1934 C9 

4.5334716 

82 .030000 

7.5999999E— 02 

1. OOOOOOOE 30 

3.2148749 

0 

3.2148749 

84.500000 

9.9 999999E 28 

2*7 000000E-02 

0 

22.892849 

22.892849 

87.060000 

4.7 9999 99 E -02 

1. OOOOOOOE 30 

5.8095114 

0 

5.8095114 

92.060000 

4.4999999E-02 

3. 6 OOOOOOE- 02 

0.9741228 

4.0234771 

4 .9975998 

97.060000 

5.1 999999E-02 

1. OOOOOOOE 30 

0.1659592 

0 

0. 1659592 

99.500000 

9.9 999999E 28 

3.8000000E-02 

0 

1 7.7485C3 

1 7. 748503 

102.03000 

5.7999999E-02 

1. OOOOOOOE 30 

1.3828310 

0 

1. 3828310 

106.99000 

6.0999999E-02 

3. 4000000 E- 02 

2.6432534 

5. 1873049 

7.8305584 

ILL. 94000 

5. 1999999E-02 

l. OOOOOOOE 30 

0.9485278 

0 

0.9485278 

114.40000 

9.9999999E 28 

2 . 8000000 E-02 

0 

9.0660667 

9.0660667 

116.87000 

4.3000000E-02 

l. OOOOOOOE 30 

3.9958048E-02 

0 

3. 9958048E-02 

121.79000 

3 • 3 99 9 9 99 E- 02 

4.0000000E-02 

0.5344959 

0.5723782 

1. 1068741 

126.69000 

2. 899999 9E -02 

1. OOOOOOOE 30 

1.5125345 

0 

1.5125345 

129.10000 

9 . 99999 99 E 28 

4* 8 000000E-02 

0 

1.5345369 

1.5345369 

131.58000 

2.7 OOOOOOE-02 

1. OOOOOOOE 30 

0.4425374 

0 

0. 4425374 

136.46000 

2.7 C00000E-02 

5.1 OOOOOOE-02 

2.4 103834E-02 

8.5065722 

8. 5306760 

141.33000 

2.8000000E-02 

1. OOOOOOOE 30 

1.0702793 

0 

1 .C702793 

143.80000 

9 . 9999999E 28 

4.4000000E-02 

0 

20.936991 

2C .936991 

146.18000 

2 « 8 0000 00 E- 02 

1. OOOOOOOE 30 

2.1657975 

0 

2.1657975 

151.03000 

2.8599999E-02 

3.90000006-02 

3.2561616 

29.575546 

32.831 707 

155.87000 

2.7000000E-02 

4. 99 9 99 99 E— 02 

0.9643456 

18.734368 

19 .698714 

160.71000 

2.5 OOOOOOE-02 

1. OOOOOOOE 30 

0.1866749 

0 

0.1866749 

165.53000 

2. 6 COOOOOE-02 

4. 9999999 E-02 

5 .4 83 7 2 46 E— 02 

3.5232337 

3. 5780709 


RUN NUMBER l EXAMPLE 3 SILICON 28 (P,P> E=18.82 SINGLE CASE 


L 

REAL CtL+1/21 

IMAG ClL+1/2) 

REAL CIL-1/2) 

IMAG CC L- 1/2 1 

0 

0. 1797416 

0.6337050 

0.1993897 

0. £043705 

1 

0. 2075140 

0.4301398 

0.1424520 

0. 3554857 

2 

-2.C074445E-02 

0.3233131 

-0.1707857 

0. 357C086 

3 

-0. 2027441 

0.3759233 

-6.9572725E-02 

0.5679760 

4 

5. 31 30092E-02 

0.3786884 

0.1061343 

0.2836448 

5 

6. 78 7 1 674E-Q2 

0.1004405 

5. 80320026-02 

8. 88890676-02 

6 

2. 17 1 0433E-Q2 

2.78239526-0 2 

l . 980976 1E-0 2 

2.7C45244E-02 

7 

6. 2823 109E— 03 

8. 4491352E— 03 

5.9807702E-03 

8. 3943006E-C3 

8 

1. 7717289E-03 

2.6271696E-03 

1.72351186-03 

2. 623 13 14E-C3 

9 

4. 93497986—04 

8. 19220 75E-04 

4.856408 7E -04 

8.1891 522E-04 

10 

1. 3623820E-04 

2. 5487865 E- 04 

1. 34941336-04 

2.54853 52 E- 04 

11 

3.6857079E-05 

7. 8806739 E-05 

3. 6632 877E- 05 

7. 88033 94 E — 05 

12 

9.63 7 96 40E-G6 

2. 3940782E-05 

9.595436 IE -06 

2. 3939455E-05 

13 

2. 54 97706 E- 06 

6. 9950169 E— 06 

2. 54 15 49 IE -06 

6. 9558642E-06 

14 

7. 9680026E-07 

1.91 7781 7E— 06 

7. 9 5846 7 IE- 07 

l. 91864 72E-06 

15 

3. 2539769E-07 

4.8349122E-07 

3. 202243 IE- 07 

4. R272232E-07 


RUN NUMBER 

L 

1 

ET A 1 

EXAMPLE 3 SILICON 

ETA2 

28 IP,P> 6=18.82 
DELR1-DELPR 

SINGLE CASE 
DELPI 

DELR2-DELMR 

DELMI 

0 

0.4480361 

0.4501087 

1.1051825 


0.4014407 

1.0265 136 

0.3991330 

1 

0.4379155 

0.4058420 

0.6230305 


0. 412S646 

0.3891C59 

0.4508957 

2 

0.3556473 

0.3988733 

3.0850273 


0. 5169078 

2.6275221 

0.4595557 

3 

0.4753954 

0.1945364 

2.6307878 


0. 371*8042 

• 1.9692993 

0. 8185679 

4 

0.2648722 

0.4819713 

0.2063998 


0.6642540 

0.2280319 

0.3649354 

5 

0.B105661 

0.8303732 

Q . 41 30075E-02 


0. 1050112 

7.0 116233E-02 

9. 2 94C025E-02 

6 

0.9453498 

0.9467389 

2.29735856-02 


2 • 8 100 1 32E-02 

2.0930 320E-02 

2. 736 5980F -02 

7 

0.9831820 

0.9832842 

6. 30994796-03 


8.4805076E-03 

6. 0825934 E— 03 

8.42856676-03 

8 

0.9947520 

0.9947597 

1.78107986-03 


2.6309259E-03 

1.73259456-03 

2.6270387F-03 

9 

0.9983620 

0.9983626 

4.9430771E-04 


8. 1 965046 E-04 

4.86437406-04 

8.1935 1 94E-04 

10 

0.9994903 

0.9994903 

1 .36307606-04 


2. 54930716-04 

1.3501 0146-04 

2. 549 046 2E -04 

11 

0.9998424 

0.9998424 

3.6862889E-05 


7.881 4727E— 05 

3. 663 8651 1-05 

7. 6811 00 IE -0 5 

12 

0.9999521 

0.9999521 

9.63842556-06 

• 

2. 3943013E-05 

9.5958955E-06 

2. 394301 3E —05 

13 

0.9999860 

0.9999860 

2 ■ 549 8063E-06 


6.996 1441E-06 

2. 54158476-06 

6 . 996144 IE -06 

14 

0.9999962 

0.9999962 

7 . 9680 33 IE- 07 


1.9185281E-06 

7.9584977E-07 

1 • 9222535 E-06 

15 

0.9999990 

0.9999990 

3.2539800E-07 


4. 8428797E-07 

3. 20224626-07 

4 . 842879 7E -07 
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PLOT OF POLEX AND POLTH VS THETA (DEG) 
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PLOT OF SGMAEX AND SGMATH VS THETA (DEC) 


• SGMAEX 
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SCATLE FORTRAN Listing 


*IBFTC C TRL 4 LUST, DECK Gl- 

C PAGE TITLING INFURMAT 1 ON 01- 

COMMUN/PTI/NUMRUN, TI TLE ( 13 ) 01- 

C INDICATORS FOR INCREASES IN RHOMAX AND LMAXM 01- 

COMMON/PCH/ NADL, NAUR, NTGT 01- 

C SCATLE CUNTKULS 01- 

CUMMUN/CN TR/KUUT, KSEND, KTRL(I3) • KT RLT C 13 i • KTRLXU3) 01- 

C VARIABLES USED IN ARGQNNE SEARCH PROGRAM 01- 

COMMUN /AGN/C( 12 ,10) , DELTA, E, EL, FAC, FB, FO, GBI12), GS , GS 8, 01- 

1GSP, GSS, GTP , GTT, HU2,12), IT, KSTEP, LV, LS , 01- 

2M, Ml, MS, N, NL f NS, NSSwl, NSSW2, Q • RSS,S(12), SL, T ( 12 ) , TO, 01- 
3VA , VF, VFP, VG ( 1 2 ) » VUPC12I, VP, X(12), XP(12),Z 01- 

C... .-.SCATLE INPUT AND OUTPUT VARIABLES WHICH ARE FUNCTIONS OF THETA 0 1- 

COMMUN /TH l /DPOLEXI 1 50 I , DSGMEX(150), JMAX, PQLEXU50), POL T H( 150 ), 01- 
1SGMAEXU5C), SGMATHU50), THE TA ( 130) , THET AD( 1 50 ) 01- 

C GRID VARIABLES 01- 

COMMUN/GDV/TRI , TRS, T VO , T Wi » TAS, TVS, TWS , T A I , TWVI, TAO, TRO, 01- 
1T V SOD D ,NR I , NRS, NVU, NWl , NAS, NVS, NWS, NAI , NWV I , NAO, NRO, 01- 

2N V SOD D ,UR I , DR S , DVO, DWi , DAS, DVS, OWS, DAI, CWV I , DAO, DRO, 01- 

3UVS0DD 01- 

C SCATLE PARAMETERS 01- 

CUMMON /PARA/KI , RS, VO, WI , AS, VS, wS, AI, WVI, AO, RO, VSODD, 01- 
1NAMEI 12) 01- 

COMMON /LI ND/LMAX, LMAXM 01- 

u VAk IABLE^> TO bE PLOTTED IN PTETDL 01- 

CUMMUN/PTPL/AETA1 (511 , AETA2I51), DELRK51), DELR2 ( 51) 01- 

DiMENSlUN StR (12), TSER ( 12 ) , T PAR ( 12 J 01- 

EUUlVALENCt (k1,SER), (TRI.TPAR) 01- 

CALL S AND (IX) 01- 

num run = c oi- 

KTRL( 1 3 ) = 1 01- 

C.....5LT UP INPUT DATA 01- 

3 CALL INP T 4 l i 3 8 ) 01- 

C COMPUTE 0 LAN T I TIES NOT DEPENDENT CN NUCLEAR POTENTIAL PARAMETERS 01- 

CALL SJGZKU 01- 

LALL FSUbC 01- 

CALL RFUTB 01- 

N ADL- 1 01- 

N A D R = 1 01- 

N UM R U N = NUMKUN+i 01- 

CAlL SKIP 01- 

C CHECK khu AND L IN NUCLEAR POTENTIAL 0 1- 

C AL L PCI 1CH( * 38) 01- 

1FINTU T.G T.2ICALL SKIP 01- 

KU U T— 0 01- 

K SA VE = KSTEP 01- 

IHKStND.EQ.il GO TO 8 01- 

c .... .initial output 01 - 

C ALL OLTP T 4 01- 

IF(KSfcl\0.NE.3 ) C ALL SKIP 01- 

8 uOnTINLE 01- 

C SET UP DU LOOPS FOR GRID UN NCCLEAK POTENTIAL PARAMETERS 01- 

Ki= Ik I 01- 

DU 33 IK I =1 , NR I 01- 

IF( IKI.GT.1) R I = RI + ORI 01- 

RS= IRS 01- 

Du 33 IK^ = I,NRS 01- 

1F( iKS.GT.i)K^= KS+ORS 01- 

VO = T VO 01- 

DO 33 I VO = 1, NVU 01- 

1F< iVO.oT.i) V0= VU+DVU 01— 

w i- r w i oi— 

DU 33 I Wl = 1 , N W I 01- 
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0080 

0090 
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0200 
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vn X- 


c 


C 


C 

C 

c 


c 


c 

c 

c 


c 


lF(iwl.GT.l) fcl = *I+Owl 01- 

AS = IAS 01- 

DU 33 lAS = 1 9 NA S 01- 

1E { iA S «G T . i ) AS = AS+UAS 01- 

V S= TVS 01- 

OU 33 £VS=1,NVS 01- 

IF(lVS-GT.i) V S= VS+UVS 01- 

* S = T h S 01— 

DG 33 iwS=l,NirfS 01- 

IF< iWo.GT. 1) WS+UWS 01- 

A 1= TAI 01- 

UU 33 1 A i = 1 » NA I 01- 

lF(iAl.GT.l) A I =A I + 0A I 01- 

W V l = T^VI 01- 

00 33 IWVI= IfNWVi 01- 

IF( Ii*VI.gT.I)*VI = wVl+OwVl 01- 

AU — TAG 01- 

00 33 1AG = 1*NA0 01- 

iF(lAG.GT.i) AG = AU+OAU 01- 

KU = TRO 01- 

00 3 3 IKO = 1 * NKU 01- 

IM iKU.GT.i) KU~ KO+QRO 01- 

V SGOO = TVSUOO 01““ 

00 33 iVSUOO=i tNVSuOO 01“ 

iF( iVSGUU.GT. 1) V 3000 = VSGUU+DVSUOO 01“ 

GU TU (18,17,13,15), Is, SEND 01- 

OUTPUT P aR aM£ TER S FUR COMBINATION GRID ANO SEARCH 01- 

13 wR I TE ( fc , 20) 01- 

20 FUKMAf(lHi) 01- 

GALL P OUT 01- 

DO m 1=1,12 01“ 

TsER( I ) = SERU ) OI- 
KS T EP - K sA V£ 01— 

• ENTER SEA RGH SCbKUCUNES 01- 

CALL ARGO 01— 

17 CALL PGT1C H(i33> 01- 

■ •••CUMPuTc NUCLEAR PUTtNUALS Ol- 
id call PCEN4 01- 

INTEGRATE RAOiAL EGUATIUNS 01- 

LALL 1NTCTK($33) 0 1“* 

1 • * «cUM Port VARIOUS SCATTERING AMPLITUDES 01— 

LAlL CSU3L 01- 

CALL Ad 01— 

-•••CUMPUTt URUSS SECTIONS ANO PULAR 1Z AT l GNS 01- 

CALL SGS^CP . 01- 

CALL S1GM AR Oi— 

1E(KTRL( 2) .Nt. 0) CALL CHI SU 01— 

GU TU (28,33,21 ,25) ,KSEND 01— 

2 1 00 23 1 = 1 , 12 01— 

23 SLR ( 1 ) =TSlR( l ) 01— 

25 KOU T = 1 01— 

FINAL CUTPU1 01— 

28 CALL OLTP T A 01— 

• ..COMPUTE, UCTPCT, ANO PLOT TRIPLE SCATTERING PARAMETERS 01— 

1F(i\TRLX( 11) .NE.U) CALL TRIPS 01— 

...PLUI PHASE SHIFTS 01— 

1F(RTRLX(2).NE. 0 . ANO. KTRL (6 ). NE . 1) C ALL PT ET DL ( A ET A 1 , AE T A2, CEL R 1 , 01— 

lot Lk2 , LMA X ) 01— 

...PLOT CHU^S ShCTiJNS ANO POLARIZATIONS 01— 

oALL Pl^CAT 01— 

3 3 CUN TINGE 0 1— 

00 35 1 = 1,12 01 — 


-0640 

-0650 

-0660 

-0670 

-0680 

- C 690 

-0700 

-0710 

-0720 

-0730 

-0740 

-0750 

-0760 

-0770 

-0780 

-0790 

-0800 

-0810 

-0820 

-0830 

-0840 

-0850 

-0860 

-0870 

-0880 

“ 0890 

“0900 

“0910 

-0920 

“0930 

-0940 

-0950 

-0960 

-0970 

-0980 

- C 990 

-1000 

-1010 

-1020 

-1030 

-1040 

-1050 

-1060 

-1070 

-1080 

-1090 

-1100 

-1110 

-1120 

-1130 

-1140 

- 1 150 

-1160 

-1170 

-1180 

-1190 

- 12 C 0 

-1210 

-1220 

-1230 

-1240 

-1250 
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I 


35 SER ( I ) = IP AK ( X ) 
J8 GO tU 3 
END 


01 — 1260 
01 — 1270 
01 — 1280 


S IBFTC PUCI LUST »L)hC K 
SUbRUL 1 INE PUUT 
C... ..SCaTLE PAKAME TER S 

CUMMUN/PARA/P AR < 12) , NAME ( 12) 

DIMENSION 1PU ( 12) • NAMUU2), PAR0U2) 

UATA ( IP0( 1 > , I=l,12)/3,4,10,11 ,9 ,8 ,1 ,6 ,7 ,5 ,2, 12/ 
DATA (NAMUU ) ,1=1,12) /6H VO , 6H Wl,6H A0.6H 
1, OH A 1 , 6H Hi, OH VS, OH WS,6H AS ,6H 

0 OUTPUT ScATLE PARAMETERS 

DU 15 1=1,12 

J=1PU( 1) 

15 PARU( I )=PAR( J) 

WR i It( t, 10) (NAMOII ) , P ARU ( i ) ,1 = 1 ,12) 

1C FURMA T ( lHK, ,A6 »1H=1PG14. 7 ,3 ( 4 X , A6 ,1H=G14. 7 ) , 


02 — 0010 
02 — 0020 
02 — 0030 
02 — 0040 
02 — 0050 
02 — 0060 
RO, 6H WVI02 — 0070 

RS.6H VSODD/ 02 — 0080 
02 — C090 
02—0100 
02 — 0110 
02 — 0120 
02 — 0130 
02 — 0140 


1/ 1HJ, 2 1X«3(4x,A6,lH=ol4.7) ,2< /I H J , A6 , lH=ui4 . 7 , 3 < 4X , A6, 1H=G14.7) ) ) 02 — 0150 


RETURN 


02 — 0160 


END 


02 — 0170 


SIBFIC INPT4 LUST, DECK I 

subroutine inpt4(*) < 

C PAGE TITLING INFORMATION i 

CUMMUN/PTI/NUMKUN, TITLE (13) 1 

C 3UATLE CONTROLS < 

CUM Mu N /CN TR/KULT, KsEND, KTRLI13), KTRLTI13), KTRLX(13) i 

C VARlAdLES USED In ARoUNNE SEARCH PROGRAM i 

C UM MUN/AuN/Cl 12,10) , DELTA, E, EL, FAC, FB* FO, GBI12), GS , GS B , 1 

lbSP, GSS, GTP, GTT, H ( 12 , 12 ) , IT, KSTEP, LV, LS , i 

2rt, Ml, MS, N, NC, NS, NSSWl, NSSW2. Q, RSS,S(12), SL, T I 12 ) , TO, i 
3VA , VF, VHP, Vo ( 1 2 ) , VGP ( 12 ) , VP, X(12), XP(12),E ' 

C AUXILIARY SEARCH VARIABLES 1 

COMMUN/AjV/DEL< 12) , I D ( 12 ) , IIN, KULMAX, LABEL ( 13) , NHP , NMLR, ' 

INPUT, NPCTP, PC T ' 

C ENERGY, MASS, AND CHARGE INPUT VALUES 

CUMMUN /EMC V/ELAd , EMB , FM1, FMO, RC , LI ' 

C OTHER SCATLE VARIABLES 1 

COMMON /MI SC/ECM, ETA, E TA2 , FKAY, FKAYA, FKAYB, RHOBC, RHO BN, 
1RHOBNG, SIGMAO, jIGMAI, TEMP 1 

CUMMUN/LI ND/LMAX, LMA XM 
C.....OKID VARIABLES 

COMMON /GDV/TR I , TRS, T VO , Twl , TAS, TVS, TWS, TA1, TWVI, T AO, TRO, i 
IT V SUDD ,NK I , NRS, NVO, NWl , NAS, NVS, NWS, NAI , NWV I , NAO, NRO, 
2NVSUUD,DRI, DRS, DVU, Dwl, DAS, DVS, OWS, DAI, CwV I , DAO, DRO, 

3D V SUDD 1 

c .... .scatle parameters 

CUMMUN /PaRA/R I , RS, VU, Ml, AS, VS, WS , AI , WV I , AC, RQ, VSODD, 
INAMEt 12) 

C.... .SCATLE INPUT AND UUTPUT VARIABLES WHICH ARE FUNCTIONS OF THETA 

CUMMUN /Tri I /DP UL E X ( 1 50 ) , DSGME X{ 150 ) , JMAX, POLEX (150), P0LTH(150), 

iSGMAEX ( IsC) , SGMA TH ( 1 5 0) , IHETA(150) , THET AD( 150 ) 
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■ . v AR IAiiLbo USED IN RHOTd 
CUM MON /RH U/UKHO IN ( 9) , NMAXv KHOIN(IO) 

..VARiAdLES CuMPUTEU IN PGE N4 (NUCLEAR POTENTIAL TERMS) 
COMMON /PuU/FLPT , UCRd (250) » UCIb(250), UCRM(250), UCIM( 250) 
1U SK til 2 50) » USItJ(25Q), USRM(250), USIM(250) 

..SCATTERING AMPLITUDES AND ADDITIONAL CROSS SECTIONS 

8R(150) , FCH 150), 


CUM MON /SAuS/aAI { 1 50) , AR <15u) , 81 (150) 

1, SuMAC (13C), SJe>rEM(150) , SRATI 0 (150) 

..CHI SJLARtS, NORMALIZATION CONSTANT, AND SIGMA REACTION 

C0MMUN/CS0/CHI2ST, CHI2PT, CH I 2 T , SUMS ( 16 ) , CHI2SI150), 
lu h i 2P ( 150 ) , C 8I2U50), ENURM, SGMRTH , SNORM, X NORM , NP, CSNRM, N CSN 

iNTtGER uRuH 

LUGICAL C SIu 

DIMENSION DE L 1 ( 12 ) , DPAK { 12 ) , HU(12), KL(13), KT (13), KX(13), 
lNPAR(ii), PAR (12), SRCH ( 12 ) , TPARI12) 

EQUIVALENCE IKL,KTRL), (KT,KTKLT), ( KX , KT RLX ) , 

1( PAR , R I ) , (TPAkfTRI) , ( NP Ak , NRI ) , ( DP AR , DR l ) 

DAlAl HO (I ) ,1 = 1, 12) /Z*. 000U1 ,2*. 005 ,.00001 , 2 *. 0 0 1 , . 0000 1 ♦ .0 0 1, 

12* . COCCI, .001/ 

UATA( DELI U ) , I =1,12) /2*. 00 Cl ,2*. 001 ,.0001 ,2*. 0 0 1 000 1 , .001, 

12*. 000 1,. 001/ 

IMAMEL ISI/kTR/KL , KT, KX, XNUKR, NP 

NAMEL 1 ST/PE i/FMI » F M3 , ELA8 » ll f RC , VO, AU, RO, Ml, MV I, AI, 

IV S, *S, A S, R S, V SUDD 

NAMtL I il/GRi /DR I , UR S , UVG, Ufcl« DAS, DVS, DW S , DAI, DWVI, DAO, 
lUKUt D VSUUD , NR I , NR S , NVU , Nwi, NAS, NVS, NMS , NAI , NWV I, NAO, 
2NRU , NVSODD 

NAMEL IST/KhI /NMAX, LMAXM , RHUIN, URHQIN 


03—0320 
03 — 0330 
03 — 0 340 
03—0350 
03—0360 
03—0370 
FCft( 150)03 — 0380 
03—0390 


Rlt 


NAMEL I ST/ SCHI /C , DELTA, t, 
INPUT, PCI, ^RUH, VP 

P/CS1G, DPULEX, 
THI, THF 

:0 . 0 ) GU TU 11 
INPUT VARIABLES 


NAMtL I 

ST 

IT HE 

TAD 

, 

i F ( 

KL ( 

13 

. . IN I 

T 1 A 

LI 

DU 

5 I 

= 1 

KL( 

1) = 

C. 

k r ( 

I ) = 

C. 

K X ( 

I ) = 

C. 

5 CUN 

TIN 

IE 

KL ( 

1) = 

1 

KLt 

2 ) = 

i 

1\L( 

3) = 

1 

K T ( 

i) = 

1 

K X ( 

4) = 

Q 

NX( 

7) = 

i 

DU 

8 I 

= 1 

par 

( I ) 

= 0 

NPAR( I 

) = 

L)PaK( I 

)=' 

8 CUN 

TIN 

LE 


FAC, H, KSTEP, N, NC, NHP, NSSM 1 
D SOME X , DTH , JMAX , JCPT, POLEX, 


0 3 — 0 A 0 0 
03—0410 
03 — 0420 
03 — 0430 
03—0440 
03 — 0450 
03 — 0460 
03 — 0470 
03 — 0480 
03—0490 
03—0500 
03—0510 
03—0520 
03 — 0530 
03 — 0540 
03 — 0550 
03 — 0560 
03—0570 
03—0580 
03—0590 
NMLR, 03 — 060C 
03 — 0610 
SGMAEX, 03 — 0620 
03—0630 
03 — 0640 
03 — 0650 
03 — 0660 
03 — 0670 
03 — 0680 
03 — 0690 
03—0700 
03—0710 
03—0720 
03 — 0730 
03—0740 
03—0750 
03 — 0760 
03—0770 
03—0780 
03— 079C 
03—0800 
03—0810 


J UP T= 0 

03—0 820 

C S I G= .FALSE. 

03—0830 

XNuKM = 1 . 

03 — 0840 

NP = 0 

03—0850 

NMAX= 3 

03 — 0860 

L MA XM = 2 5 

03 — 0870 

R Hu I N ( 1) = .05 

03—0880 

R HU I N ( 2 ) - .5 

03—0890 

KHU IN ( S )=2 5. 

03 — 0900 

DR HU IN (1 ) = .05 

03—0910 

DKhU IN ( 2 ) =.5 

03 — 0920 

DT H=0 . 

03 — 0930 
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C KtAO TITLE AND CUNTRULS 

11 KEAul 5, 1UJ Tl TLE 
1C FUKMATUJA6) 

RtAUl 8 »K I K ) 

C EL 1 M IN ATE iwCUNSI STcNT USE OF KX<7) 

IF ( KL { 1 ) .EU. 2. AND. KX ( 7 ) . E U .2 ) KX ( 7 J =1 

t ktMUVE P G SS I B I LI TV GF NURMALI Z I NG SGMAC 

iFl KX ( ' J.EU. i ) KX(5) =0 

C BET UP SIGMA NUftMA L i ZA T I ON 

SNUKM - 1 . 

IF( Ka( S i.tg. li SNORM=XNURM 

C SET UP INTERNAL PROGRAM CUNTRCLS 

KSEND= KT U) 

FLP T = KX< 9) 

KULMAX=i 
K DLM = 0 
NCSN- J 
DO 13 K=4,13 
13 KUL M = KDLM + K T( K ) 

I F ( KDlM.E 0.0) GO TO 18 
K DL MA X = 2 
NCSN=1S 

KUL M-K 1(6) + K T ( 8)+KTtiO)+KT(12) 

I F ( KUi_ M ) KL)LM AX=3 

18 CUM UN Lb 

L • - . • .K t A u SCaTLL PARAMETERS AMU ENERGY, PASS, AMU CHARGE VALUES 
R Ea U ( 8 , P L I ) 

CO 2 = FM1+FM6 

FMU = ( FFI*FMB ) /CU2 

ELM = ELAb* { FMB/CG2) 

FKAY=. < 18 739 * SQK T ( F MU*EL M J 
TEMP = FKAY* ( FMB**. 33333333) 

E TA = • 1 5 7h8 1 *ZZ*SURT(FRI /ELAB) 

£ T A 2= ETA**2 
R Hu BL = TEMP*kC 
UO £ J 1=1,12 
TP AK ( 1 )= PAR ( I ) 

23 LUMTINLt 

C READ GRID VARIABLES 

1 F ( KSEMU.tU-2.UR.KsEMU.EU.3J RE AD (5 ,GRI J 

C READ INTEGRATION DATA 

KtALlI 3 , RH I ) 

C INPUT FUk KNEE AMU TAIL VARIATIONS 

CALL PGMIN 

C INITIALIZE AMU Rt AO IN SEARCH VARIABLES 

K UR =0 

IF( KStNU.LT. 3) GU TO 48 

RSTEP=C 

NC = 0 

N S 3 w i = 1 

N hP =8 

MMLR= 5 

N P C T= 5 

P C T = . 5 

E = . i 

VP =0. 

F AO = - i. 

UEL TA = 1 . 

REAUI 5 , SC H I J 
UU 48 1=1, N 

UU 33 K= i , 12 

IF(MAMt(K J.EU.SKCHU J J GO TO 35 


03 — 0940 
03—0950 
03 — 0960 
03—0970 
03 — 0980 
03 — 0990 
03—1000 
03—1010 
03 — 1020 
03 — 1030 
03 — 1040 
03 — 1050 
03—1060 
03—1070 
03 — 1080 
03 — 1090 
03—110 0 
03—1110 
03—1120 
03—1130 
03—1140 
03 — 1150 
03 — 1160 
0 3—1170 
03—1180 
03—1190 
03 — 1200 
03—1210 
03 — 1220 
03—1230 
03 — 1240 
03—1250 
03 — 1260 
03 — 1270 
03— 1280 
03 — 1290 
03—1300 
03 — 1310 
03 — 1320 
03—1330 
03 — 1340 
03—1350 
03 — 1360 
0 3 — 13 70 
03 — 1380 
0 3 — 1390 
03 — 1400 
03—1410 
03— 1420 
03 — 1430 
03 — 1440 
03 — 1450 
03—1460 
03 — 1470 
03 — 1480 
03 — 1490 
03 — 1500 
03—1510 
03 — 1520 
03 — 1530 
03 — 1540 
03—15 50 
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3 3 CUNTiNlb 

wR ITE { 6,20) SRC H ( I ) 

2C FURM A T ( iHKAbf 44H IS NUT A SCATLE 
K Dk = i 

uu tu 

35 ID( I ) =K 

LAdLL t I )=NAME (K) 

OtH I )= UEi_l (K) 

UU 33 J = I , N 

IF( FAC .NE .0. ) HU * J) = 0. 

38 N( J , I j = H ( I , J) 
lP(FAC) 41,45,43 

4 1 hi i f i )=HU (k) 

GO TU 44 

43 H( 1 , I ) = FAu 

44 DEL TA^UEL TA^HU ,1 ) 

45 CUN TINGE 
lF<NPCl.bT.10)NPCT=10 
NPC TP = NPC T + i 

48 CUN TINGE 

C • • • * *K EAD EXPERIMENTAL DATA 
I F ( kL ( ^ J.EC.G) GU TO t>3 
KL ( 3i-C 
KtAL)( 5, TSP ) 
iFl U T h .Eg .0 • ) GO TO 53 
J=U 

51 J = J + I 
A J = J— 1 

THE TA J ( J ) =THI + UTH*AJ 

IH THeT AO (J)*L T . THF .A NO . J. L T. 1 75 ) 

JMAX^J 

53 DO 58 J-l » JMA X 

I F ( JUP 1.NE.0)KfcAu<5,5 0) THE TAD ( J ) 
lUPULEXt J ) 

5C FUkMaT ( 8E 10. 0) 

THETA( J) = . CI 745 32 92 5* THE TAD< J) 

c Convert from milligakns tu sccare 

I P ( .NUT.C SIGi bO TU 58 
SGM At X ( J ) = . 1* SG MaE X( J ) 

L)SbrttX(J)= .1*0 S^MeX(J) 

5 E CUN T IN Lt 

C SNRM = JMa X-NP 
e S l G— »F A L bE . 

63 IF(kX( ii.NE.OiGU TO 68 
OU 65 J = 1 » JMA X 
65 S i oTE M ( J )=U5bMt X{ J) 

6 6 IF( KOK.EW* I)KE1 URN 1 
kET URN 
ENO 


03 — 1560 
03 — 1570 

PARAMETER. GO TO NEXT CASE) 03 — 1580 

03—1590 

03—1600 

03—1610 

03—1620 

03—1630 

03 — 1640 

03—1650 

03—1660 

03—1670 

03—1680 

03—1690 

03—1700 

03—1710 

03—1720 

03—1730 

03—1740 

03—1750 

03—1760 

03—1770 

03— 1780 

03—1790 

03—1800 

03—1810 

03—1820 

03—1830 

03—1840 

iO TO 51 03 — 1850 

03—1860 
03— 187G 

r SGMAEX(J), DSGMEX(J), POLEX(J), 03 — 1880 

03 — 1890 
03—1900 
03— 1910 

F ERM IS/ST ERAO 03 — 1920 

03—1930 
03 — 1940 
03—1950 
03—1960 
03—1970 
03 — 1980 
03—1990 
03—2000 
03—2010 
03— 2020 
03—2030 
03 — 2040 


% IBF Tc SIoZRC LUST * OEC K 
SubRUL I IN E SIGZRU 
C.....UTHER SCATLE VARIABLES 

CUMMU.M/Mi Sb/cCM, ETA, E TA2 , F KA V . FKAYA, FKAYB, RHOGC, RHOBN, 
IKHuGN^r blbMAGf blbMAl, TEMP 

C bUMPUTt bUUEUMB PHASE bH l F T FOR L=0,1 

S I bM a 0 •=— ( ETA/C 12.U*(E TA**2+ 16 . 0 ) )) * ( 1 .0+ l £ T A**2-48 
1*2+16.0**21 ) + (ETA* *4- 160. 0* ( E T A**2)+ 1 280 .0 ) / ( ( ( 16 


04—0010 
04—0020 
04—0030 
04—0040 
04 — 0050 
04 — 0060 
0 ) / ( 30. 0*( ( ETA*04— 0 070 
0 + ET A** 2 ) ** 4 ) * 1 04 — 0080 


58 



11 


2U5.UI ) 

SIbMAG=SI bMAO-E TAMfcTA/2. 0) *ALUG (E T A**2 + 16.0 ) + < I7< 
14 . u ) ) - ( A T AN ( t T A ) + A TAN < £ TA / 2 . G > + A TA N ( E T A/3 . O I) 

SlbMA i=Si GMAO + ATAMETA) 

return 

END 


04 — 0090 

0/2.0 )*ATAN< ETA/ 04 — 0100 
04 — 0110 
04 — 0120 
04 — 0130 
04—0140 


$ i bf t u fsubc lust.oeck 05 

SUBROUTINE FSUBC 05 

C UTHLR SUATLE VARIABLES 05- 

CJMMON/Mi SC/ECM, ETA * ETA2, F KAY, FKAYA, FKAYBt RHOBC, RHOBN, 05- 

IK HU BN G f S I bM A G t SlGMAi, TEMP 05- 

C SCATLE INPUT AND OUTPUT VARIABLES ^HlCH ARE FUNCTIONS OF T HETA 05- 

CuMMUN/TH I/UPULEX(150) , DSoMEXll5GJ, JMAX, P0LEX(150), POL T HI 150)* 05 
IS bM AEX(lt>0)« SGMA TH ( 1 5 0) « lHtlA(150)» THET AO ( 150) 05 

C SCATTERING AMPLITUDES AND ADDITIONAL CROSS SECTIONS 0 

UUMMUN /SACS/A1 ( ISO) , AH (15 0) » BK150), 6K(150), FCK150), FCRC 150)05- 
If SUMAC ( it) G ) » SIbTEM(150) « SRATIU(150) 05- 

C.-. ..COMPUTE COULUMB SCATTERING AMPLITUDES 05- 

UO 10 J = 1 f JMA X 05- 

SN = ( SiM THETA (J)/2.0) ) **2 05- 

FLN =E T A* ( A LOG (SNi )-2. 0*SIGMA0 05- 

FNU =t T a/ ( 2 . 0 * FK AY* I SNI 1 05- 

23 FCfUJ I =(-FNU*COS(FLN) I 05- 

10 FCIIJ ) = (FNU*SIN(FLN)) 05- 

27 R t TURN 05- 

ENU 05- 


-0C10 
-0C20 
-0C30 
-0 040 

— 0050 
-0C60 
-0070 
-0C80 

0090 

-0100 

-0110 

— 0 120 
— 0130 
-0140 
-0150 
-0160 
-0170 
-0180 
-0190 
-0200 


SldFfL KHOTd LUST.DfcuK 

06 — 0010 



SUBROUTINE RHUTB 

06 — 0020 

c 

. * . . 4 

• V Ak lABLEb USED In RHUTB 

06 — 0030 



COMrtu.N /KHU/JRHUiN ( , NMAX, RHUIN(IO) 

06 — 0040 

c 

«... 4 

• VARIABLES COMPUTED IN RHUTB 

06 — 0050 



LUMrfUN /KH I/UKHL.L, URHU<249>, IFIRST, I LAST , RHU1250), RHOMAX 

06 — 0060 

c 

• • • 4 < 

• GENERATE ARRAY OF RHO VALUtS 

06 — 0070 



UK HU ( i )=URHU I N ( i) 

06 — 0080 



KMU ( 1 ) =KHUlN C i ) 

06 — 0090 



NN = 1 

06 — 0100 



1=1 

06 — 0110 


20 

RHO I I+i)=RHuI I ) +JRHU1 N ( NN 1 

06 — 0120 



IF (RHU(l+i>— KHUINt NMAX) >30,50,70 

06—0130 


30 

IF ( Ad S (KHU ( £+1)-KmuIIM( NN+l) )-. 5*0KHU I N ( NN) >3 5,35,40 

06 — 0140 


35 

NN=MJNC(i\N ■*-£., NMAX— 1 ) 

06 — 0150 


40 

UK HU ( i *1) =DRHUIN(NN) 

06 — 0160 



i=i + l 

06 — 0170 



GU TU 20 

06 — 0180 


50 

lLAST= l + i 

06 — 0190 


6 C 

KHU< I L A ST ) =RHU INI NMAX ) 

06 — 0200 



UK Hl) ( £LAST-n=RHLi( I LAST) -RHO ( ILAST-1) 

06 — 0210 



RHCJi“IAX=KHulN(NMAX) 

06 — 0220 



URHUL=ORHOIN( NMAX-1 ) 

06 — 0230 


83 

R t T uKN 

06 — 0240 


59 


i mi ii ii min 


1 C I F { ( R HC { I +1)-RHUIN<NMAX) ) - . 5 *DRH Cl N ( MM I ) 50 t 50 , 75 06* 

75 ILAST=1 06- 

uU TO 60 06- 

cNU 06- 


iibFTC 5UP LOST, DECK 
SUBRUCllNt SKIP 

C PAGE TITLING INFORMATION 

cum MUi>i /P r i /imumru.m , ti tle ( 13 > 

C SKIP TU NEXT PAGE, wR I Tt RON NUMBER ANC TITLE 

rtk 1 Tt ( t f 6 50 ) N UMR UN , TI TLE 
65C HJKMAM 1HI, 10HKCN NuMbtKl 3 *1 0 X # 13 Ao ) 

K E T OK N 
ENU 


0 7- 
07- 
0 7- 
C7- 
07- 
0 7- 
07- 
0 7- 
07' 


$ I d F Tc PUT 1C H LUsT,UECK 

SUBRuU T I Mb PUTIOH ( * ) 

C VAK i A 3 EEs COMPUTED IN RHUTii 

COMMON /RUT/DKHUL, DRHUI249), IFIRST, I LAST, RHG(250 ), RHOMAX 
C • .. . ,LUw VERbENCt CRITERIA 

CUMMuN/CUNV/EPSI , tPSZf EPS3, EPS4 
CUMMUN/Ll ND/LMAX, LMAXM 
C UTmEk SoATLE VARIABLES 


08- 

08- 

08- 

08- 

08- 

08- 

08- 

08- 


0 

C 


C 

C 


c 


buhMUN/Mi SC/ECM, tTA, E TA2 , FKAY, FKAYA, FKAYB, RH06C, KHUBN, 08- 

lRHUtiNU, :> I oMa 0 , SluMAl, It MP 08— 

. * ♦ . SC A Tl E PARAMETERS 08— 

cOMMUN/PAKA/KG, RO, V v W» A, VS, *S , BG » OUMMY { 4 ) , NAME(12) 08— 

. • . . iNU 10 A FOR S FUR INCREASES IN RHUMAX ANU LMAXM 08— 

COMMON /PC ti/ NAUL, NAUR, NTuT 08— 

K Hu dt'j = i EM P*R 0 08— 

KHUt>N vj = IlMP*K u 0 8— 

FK a YA = EftA Y*A 08— 

FivA Yu = ERA Y*db 08— 

b LMaX=LMAXM+I 08— 

FlM AX = LMA XM 08— 

...COMPuTe MAGNIICOfc UF POTENTIALS AS A FUNCTION GF LMAXM 08- 

CALL PGNc MFC MAX, TcR , TC i • TSR , TSI) 08— 

•••IF MAGNITUDE OF CENTRAL POTENTIAL TUC LARGE, INCREASE LMAXM 08— 

IF < TCR .L UePS4.AND.TC I.LT.EPS4)GC TU L8 08— 

WRITE! t f 10) LMAXM OS- 

LO FUkMa T ( 7H JLMA XM = I 5 , 3H +1,45H LMAXM TOC SMALL BECAUSE OF CENTRAL P008— 
11 ENT LAD 08— 

...LMAXM LT 50 CALScS DIMENSIONS TU BE EXCEEDED 08— 

13 IF( LMAXM. EO. 50) GO TU 65 08— 


LMA XM = lMA XM+ 1 


0 8 - 


NAUL=N AUL + 1 


08' 


GU TU t 


08- 


1£ TL = LM A X 


0 8 - 


C IF MAGNITUDE UF sPlN-GKBIT PUTENTIAL TOC LARGE, INCREASE LMAXM 0 8— 

IFl T l* ISR .L T.EPS4. AND. TL* TSI. LT.EPS4JG0 TO 23 08- 

WKI TE( t,2C) LMAXM 08— 


0250 

0260 

0270 

0280 


-0010 

-0020 

-0030 

-0C40 

-0050 

-0060 

-0070 

-0080 

-0090 


-0010 
-0020 
-0030 
-0C40 
-0050 
-0060 
-0070 
-0080 
-0090 
-0100 
-0110 
-0120 
-0130 
-0140 
-0150 
-0160 
-0170 
-0180 
-0190 
-0 200 
■0210 
■0220 
-0230 
■0240 
■0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
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ui vn 


INCREASE RHOMAX 


IS TOO SMALL IN 


20 FORMAT! 7ri JLMAXM^I 5,3H +1,4BH LMAXM TCO SMALL BECAUSE OF SPIN 
1 POTENTIAL) 

GU TO 13 

23 IF ( RH UMAX .GE •FLMAXIGO TO 48 
..COMPUTE M A ON i T ODE OF POTENTIAL AS A FUNCTION OF RHOMAX 
28 CALL PGNLK(RHUMAX,TCK , TCI , TSR,TSI> 

C IF MAGNITUDE UF CENTRAL POTENTIAL TOC LARGE, 

IF! TCK .LT . EP S4. AND* TC I. LT.EPS4) GO TU 38 
rtKITtU, 30) KHOMAX, DRHOL 
3 C FORMA T ( 8H JKhUMA X=E 1 6. 9, 2H+ Ei6.9,4iH RHOMAX 
Ik POTENTIAL) 

C IF ILAST GT 250, RHO DIMENSIONS ARE EXCEEDED 

33 IF( ILA ST.EU.25C) Gu TU 65 
R HuMAX = RHUMA X+URHUL 
ILA ST= ILA ST+ I 

KHU { ILASi ) =RHU ( i LA ST- 1 ) +DRHGL 
DKHUi ILAST-Ii =OKHUL 
NADR-NAUR + 1 
GO TO 2 8 

C IF MAGNITUDE OF SPIN-ORBIT POTENTIAL TOC LARGE, 

38 IF( TL* 1 SR. LT.EPS4. A NO. \ L* TSI . LT. EPS4 ) GO TO 48 
WR I TE ( 6 , 4 0 J KHOMAX, DRHOL 

4C FOR MA T ( 8H JRHOMA X =E 16*9, 2H + E16.9,44H RHOMAX IS 
1KB 1 T POJENTIAL) 

GU TU 33 

C IF LM A >M HAS BEEN INCREASED, RECOMPUTE COULOMB 

48 IFINADL.ED.OIGO TO 53 
CALL EXSGML 
eALL CCUL FN ( i> 65 ) 

GO TU 5 8 

C.....IF KHOMAX HAS bEEN INCREASED, RECOMPUTE COULOMB FUNCTIONS 
3 IF{NAUR.bT.O)CALL CUULFN($65) 

8 CUNT IN LE 

N TU T = N ADL +NADR 
N ADL = 0 
N AUK— 0 
RETURN 

65 WRITE! t t 70 

7 C FQkMA T ( 4 8HKD IMENSIONS HAVE BEEN EXCEEDED. GQ TC NEXT CASE) 
RETURN I 
ENU 


INCREASE RHOMAX 08 — 


TOO SMALL IN SPIN 008 — 


FUNCTIONS, PHASES 08 — 


ORBIT 08- 
08- 
08- 
08- 
08- 
0 8 - 
08 - 
08- 
08- 

NUCLEA 08 - 
08- 
08- 
08- 
08- 
08- 
08- 
08- 
08- 
08- 
08- 
0 8 - 
08- 
008- 
08 - 
08- 
0 8 - 
08- 
08- 
08- 
08- 
0 8 - 
0 8 - 
08- 
08- 
0 8 - 
08- 
08- 
08- 
08- 
08- 
08- 


— 03 70 
-0380 
-0390 
-0400 
-0410 
-0420 

— 0430 
-0440 
-0450 
-0460 
-0470 
-0480 
-0490 
-0500 
-0510 
-0520 
-0530 
-0540 
-0550 

0560 
-0570 
-0580 
C 59 C 
-0600 
-0610 
0620 
-0630 

— C64 0 
-0650 
-0660 

— 0 6 7 C 

— 06 8 0 
-0690 
-0700 
-0710 
-0720 
-0730 
-0740 
-0750 
-0760 
-0770 


$ I BF TC EXSGML LUST, DECK 
SUBROUTINE EXSGML 

C... ..VARIABLES WHICH ARE CALCULATED AS FUNCTIONS OF L 

COMMON / VAR L /C 1 1 ( 51 ) , Ci2(5I), CRK51), CR2I51), EXSGMK51), 

1EX SoMR I 5 i ) , F ( 52) , FB AR ! 91 ) » FPI5I), G(52), GP(5I) 

COMMON/LI NO /L MAX, LMAXM 
C OTHER SLATLE VARIABLES 

COMMON /MI SC/E CM , ETA, ETA2, FKAV, FKAYA, FKAYB, RHOBC , RHO BN, 
1RHUBNG, sluMAO, SIGMA1, TEMP 

C CUMPUTE COULOMB PHASE SHIFTS 

1 FL = C • 0 

EXSGMR t 1) =CUS{ 2.U*S1GMAU) 

EXSGMI ! I)=SIN(2.0*SIGMA0) 

ETA2A=2.0*ETA 
DU 20 L = 2 , LMA X 
FE =FL + i.O 


09 — 0010 
09 — 0020 
09 — 0030 
09—0040 
09 — 0050 
09 — 0060 
09 — 0070 
09 — 0080 
09 — 0090 
09 — 0100 
09 — 0110 
09 — 0120 
09 — 0130 
09 — 0140 
09 — 0150 
09 — 0160 
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TEkU=FL** 2 
T EK 1= T ERO + E TA2 
T ER 2= ( 1EK C-ETA2) /IER1 
TER 3= I ETA 2A*FL)/TER1 

13 EXSbMR (L ) = ( TEK2*E XSG MR I L- 1 ) ) - ( TER3 *£XSGMI <L -III 
20 EXSbMI (L ) = ( TE R2*E XSG Mi IL-l) ) + ( TER3 *EXSGMR ( L— 1 1 J 
17 RETURN 
END 


09 — 0170 
09 — 0180 
09—0190 
09—0200 
09—0210 
09— 0220 
09—0230 
09—0240 


WBFTC CUULFN LUST,UECK 

SUBROUTINE CU ULFN ( * ) 

C..,. ^SCATTERING AMPLITUDES AND AUDI T XCNAL CROSS SECTIONS 

COrtMUN /SACS/AI ( 150) , ARU50), BIU50), BRU50), FCI<150)t FCR< 
1, SGHACU50), SIGTEMU50), SRATI 0(150) 

C.-.. •OTHER SbATLE VARIABLES 

COMMON /Ml SC/E CM # ETA, E Ta2 , FKAY, FKAYA, FKAYB, RHQBC, RHOBN, 
IRHUoNG, SibMAO, bIGMAi, TEMP 
C SC A 1 L E CUNTRULS 

CUMMUN/CN Ik/KULT, KSEND, KTRL (13) , KT RLT ( 13 ) , KT RLX ( 13 ) 

C CONVERGENCE CRITERIA 

COMMON /CJNV/EPSlf EPS2, EPS3, EPS4 
CUM Mu N /Li ND/LMAX, LMAXM 

c VARIABLES WHICH ARE CALCULATED AS FUNCTIONS OF L 

CUMMJrt/VAKL/CI 1(51) f CI2(51), CRU51), CR2I51), EXSGMK51), 

IE X S OMR (SI), F ( 52 1 , FBAR(91), FP151), G(52), GP(5L) 

C VAR lABLEb COMPUTED IN RHUTB 

CJMMON/KH T/URHOL, DRHUI249), (FIRST, I LAS T , KHG<250), RHOMAX 

C CUMPUTc CUULUMb FUNCTIONS 

SU = SUK 1( 1.0+ETA2) 

1 IJ = i 

ARl 1 ) =—£ T A 
Ail 1MC.0 
Akl 2) =-. 5* E Ta 2 
A 1 ( 2 ) = * 5* E TA 
^ SI = 0.C 

SK=Q.Q 
P K = RHLMaX 
DO 10 K = 2 » 49 
T tM =PR *FLUAT ( i-K) 

TR=AR(K)/T£M 
T l =A I { K)/ TEM 
53 SUN=TR**2+Tl**2 

IF( K-2 ) h, 4,3 
3 IF ( SwN-SwO) 4,4,11 

A TR=SR + TR 

T 1 = $ I ♦ T 1 
I F ( TK-SR) 6, 5,6 

5 IF ( r I- E 1 ) 6,13,6 

6 SK= fR 
S 1 = T I 

AR ( K + 1 ) = 0 • 0 
AI { K+ 1 ) = 0.0 
K P = K / 2 
DU 1 M M = 1 , KP 
KM = K + i-MM 

Ak( K+i )=AK(K + 1 ) — AR (MM)*AR(KM) +A I (MM) * A £ ( KM) 

7 A I ( K+l )=A I (K+ U-AI (KM) *Ak(MM) -A I (MM) * AR ( KM) 

IFiN-2*KP) 8, 5, fl 


10 — 0010 
10 — 0020 
10 — 0030 
150) 10—0040 
10—0050 
10 — 0060 
10 — 0070 
10 — 0080 
10—0090 
10 — 0100 
10—0110 
10—0120 
10—0130 
10 — 0140 
10—0150 
10—0160 
10—0170 
10—0180 
10—0190 
10—0200 
10— 0210 
10—0220 
10—0230 
10—0240 
10— 0250 
10 — 0260 
10—0270 
10—0280 
10—0290 
10 — 0300 
10—0310 
10—0320 
10—0330 
10—0340 
10—0350 
10—0360 
10—0370 
10—0380 
10 — 0390 
10 — 0400 
10—0410 
10—0420 
10—0430 
10—0440 
10—0450 
10—0460 
10—0470 
10 — 0480 
10—0490 
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8 

9 

10 

11 

12 

13 

14 

15 
25 


31 

32 


133 


60 C 
60 1 

33 
43 

34 

371 

35 

36 

37 

38 

3 61 
382 


AR( K+l }=AR(K+1)-. 5*(AR(KP+i) **2-AI (KP+1) **2) 

A I ( K + 1 ) =A i <K+1J-AR(KP+1I *AI (KP+ii 
FK = • 5* FLU A T ( K ) 

A I < K+ 1 )=A 1 U+ 1 )-F K*AR ( K) 

AR(K+1 )=AR(K+l)+fK*Ai <K) 

PR= PR*RHUMAX 

suo=sgN 

GO TO 101 

TEM = SR**2 + SI**2 

Ifri TEM )1U5, 105,12 

IF( AB S( SQ 0 /TEM >— E P S3 ) 13,13,106 

bO TO (14,15) ,1 J 

PAR =RHCMA X-E TA*ALUG (2# 0*RHUMAX> 

PHI OR=PAR + SIGMAG+SR 
P Hi 01 = SI 

AR( 2 ) — — 1* O+AR ( 2 ) 

I J = 2 
GO TO 2 

PHI 1R = PAR + SIGMA1-. 1 57 079632E+ 01 + SR 
PHI 11 = SI 
T 1 =EXP (— P HI 01 ) 

T 2 = EXP (— P Hill ) 
b( 1) = T1*LGS(PHIGR) 
b( 2 ) = T OS(PHAIR) 

F 1= Tl* S IN ( PHI OR) 

F2=T2* SIN ( PHI 1R) 

IF(ABS(Pl*b( 2 ) — F 2* G ( 1 )— I.O/SU )— E PS1 ) 31 ,31,102 

IDEt=i 1 

i=LMAX+IDEC 

FBAR( l ) = . 1 

FBAR ( i* 1) =0.0 

LIMIT = LMA XM+ I DEC 

FL =LM A * + I DLL 

T 1= 30 K T ( (FL+i.C) ** 2+E T A2 ) 

DO 33 1=1, LIMIT 
L=LMAX-t-IDt I 
FL=L 

T 2= SO R T(FL**2+£TA2) 

FBAK ( L )=( ( 2.0*FL+i . 0) *(E TA + F L* ( F L+ 1 .0 ) / RH OMAX ) *FBAR{ L+ 1 ) 
1R ( L +2 1 )/( <PL+1.G>*T2) 

IF( AbS(FBAR(L) )-l.E +30) 33 ,33,601 

K=LMAX + IDtC 

FBAK ( K )=F8AR< K)*0.1 

GO TO 133 

r i=T2 

ALP HA = 1.0/1 (FBAR<1)*G (2)-FBAR<2 )*G< 1) ) *S0) 

LMA XP = LMA X + l 

DO 34 1 = 1, LMA XP 

FB AR( I )=ALPHA*FBAR ( 1 ) 

I F ( lOEC-il) 371,35,371 

IF( AbMFl/FBARI 11— 1.0)— EPS2) 37 ,37,35 
DO 36 1=1, LMA XP 
F( I )=FBAR ID 
I D£C = i DEC + 5 

IF (10 EC— 40 ) 32,32,103 

DO 38 1=1, LMA XP 

IF(A8S(F( I)/FBAR(I l-i.0)-EPS21 38,38,35 
LUN TIN LE 

DO 381 I = 1 ,LM A XP 
F ( 1 )=F8AR (I) 

T 1= SQ 

DO 40 L = 1 , LMA XM 


10 — 0500 
10—0510 
10—0520 
10—0530 
10 — 0540 
10—0550 
10 — 0560 
10—0570 
10—0580 
10—0590 
10 — 0600 
10 — 0610 
10—0620 
10 — 0630 
10 — 0640 
10 — 0650 
10 — 0660 . 
10—0670 
10 — 0680 
10—0690 
10—0700 
10—0710 
10—0720 
10—0730 
10 — 0740 
10—0750 
10 — 0760 
10 — 0770 
10—0780 
10 — 0790 
10—0800 
10 — 0810 
10—0820 
10 — 0830 
10 — 0840 
10 — 0850 
10 — 0860 
10 — 0870 
-FL *T 1 + FBA 10 — 0880 
10 — 0890 
10 — 0900 
10—0910 
10 — 0920 
10—0930 
10—0940 
10 — 0950 
10—0960 
10 — 0970 
10—0980 
10 — 0990 
10 — 1000 
10 — 1010 
10—1020 
10—1030 
10—1040 
10—1050 
10 — 1060 
10—1070 
10 — 1080 
10 — 1090 
10—1100 
10—1110 
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FL=L 

10—1120 


T2=SwR I( {FL+1.C)**2+ETA2» 

10—1130 


b(L +2 ) =( ( 2.0*FL+1.0l*(tTA+FL* (F Li-1 . 0 I / RHOM AX » *G (L+ 1 )-( FL + 1 .0)*T l*G10 — 1140 


1(L ) )/ I FL* 12) 

10—1150 


Tb=FL / 11 

10—1160 

4b 

1FIAB S(F( L)*G (L + l)-F( L+l ) *Gl L)-TS)-EPS1 ) 

40,40,104 10 — 1170 

40 

T 1 = T2 

10—1180 

41 

DU 42 L= 1 , LMA X 

10—1190 


FL =L 

10—1200 


T tM =FL **2 

10—1210 


T 1= I tM /RHOMAX+E TA 

10— 1220 

4 6 

I 2 = SuR U TtM+E TA2 J 

10—1230 


FPIL)=(T1*F(L)-T2*F(L+1) ) /FL 

10 — 1240 

4 2 

bP(L )=( Tl*b(L)-T2*G(L+i) ) /FL 

10—1250 

63 

RET URN 

10 — 1260 

10 1 

WRITE (o, 121 )RHOMAX,DRHUL 

10—1270 


GU TO .110 

10—1280 

10^ 

wRITt ( 6, 122)RH0MAX,DRH0L 

10—1290 


GU TU IlU 

10—1300 

10b 

WKIIL (6, 1 23 ) KHUMA X.DRriUL 

10 — 1310 


GU TO 110 

10—1320 

104 

WRiTt (6, 124 ) RHUMA X , D RHOL ,L 

10 — 1330 


GU TU no 

10—1340 

105 

wK 1 Tt (6, 12 3 ) RHUMA X ,DRHUL 

10—1350 


bU TU 1 10 

10—1360 

1C6 

WRITt (6, 1 26 ) KHUMA X *URHUL 

10—1370 

11C 

IFl I L A S T . t « . 2 5 C ) RETURN 1 

10—1380 


KHU MA X =RHUMA X+ORHUL 

10 — 1390 


iLAbT=ILASI + i 

10—1400 


RHU( 1LAST ) =RHU 1 ILAbT-1 J+DRHGL 

10—1410 


DkHuI I LA b r-1) =UKHOL 

10 — 1420 


bU Tb 1 

10—1430 

121 

FORMA T ( ldH INCREa Sc RHU MAX = t 11.4 ,2H+ til 

• 4 , 3 5 H A OR B SERIES CONV 10 — 1440 


ltRGtS IUU bLUwLY) 10 — 1450 

122 FURMA r ( 1 dH lNURtAbt RHU MA X=t 1 1 . 4 ,2H «- E11.4.22H BAD INITIAL WRONSK 10 — 1460 
1 1 AN ) 10—1470 

HJR Ma T ( ldH INCREASE RHU M A X = fc i 1 . 4 , 2H + tli.4,24H L T CO LARGE IN FBA10 — 1480 
1R ( l > ) 10 — 1490 

EJKMA 1(181-1 iNuRtASt RHU MA X = E 1 1 . 4 , 2 H * Eil.4,2lh BAD WRONSK IAN FOR 10 — 1500 
1L = 131 10—1510 

FuRMA T ( 6 7H btKltb IN RHIO UR PH I 1 IS ZERO, CHECK DATA, IF OK INCRE10— 1520 

10 — 1530 

TOU QUICKLY INCREASE RHOM AX= E 1 1 . 10 — 1540 

10—15 50 


123 


124 


12 


12b 


btR It S IN PHI 0 UR PHI I 
1A St R H L M A X =t 1 1 . 4 , 2 H + til. 4) 

FUR MA T ( 52H A Ok B StRItb DIVERGES 
14 , tH + Eli. 4) 

END 


10 — 1560 


ilbFTC UUIPT4 LUST,UtCK 11- 

SCBROUIlNt UUTPT4 11- 

C.»..»bbMTLE PARAMETtRb 11— 

COMMON /P«kA/Rb , RO, V, w. A, VS, WS, BG , DUMMY ( 4 ) , NAME( 12 ) 11- 

C tN ERG Y ,Mrt SS, AND CHARGE INPUT VALUES 11- 

UUMMUN /tMCV/ELAB , F MB , FMI, FMU, RC , ZZ 11- 

C UHi bQuARtS, NUKMALIZATIUN CUNSTANT, AND SIGMA Rt ACT ION 11- 

LOMMUN /tbU/CHl 2ST , CHI2PT, CH I 2 T , SUMSU6), CHI2SI150), 11- 

1C H 1 2P ( 1 30 ) , CFt 1 2 ( 150) , t NORM, Sb MRT ri , SNU RM ,XN0RM, N P ,CS NRM, NCSN 11- 

C SUATLt INPUT AND OUTPUT VARUABLES WHICH ARE FUNCTIONS OF THETA 11 

COMMON / TH l /DPGLEX ( 1 30 ♦ , DSGMEX(150), JMAX , POLEXQ50), POL T H( 1 50 ) , 1 1 
lbGM At X ( 1 3 C ) , SGMATH115U), THETA(150) , TritT AD( 150 ) 11 


0010 

0020 

0030 

0040 

0050 

0060 

0070 

0080 

-0090 

0100 

0110 

0120 


64 


c r> 


C VAR 1 A 3 L e S CUMPO TfcU IN PGEN4 (FOKM FACTORS) II — 0130 

CUMMuN/PuF/PFCl (250) , FFCIM<250), FFCRI250), FFCRM<250), FPSH 250) 11 — 0140 
I. FFSIM (25U) , P F SR ( 2 5 0 ) » FFSRMI250) 11 — 0150 

C . . . . .VAR IA6LES uStL) IN RHOTB 11 — 0160 

COMMON /RHU/URHOIN ( 9), NMAX » RHOIN(IO) 11 — 0170 

C VARIABLES WHICH ARc CALCUCATtD AS FUNCTIONS OF L 11 — 0180 

CUMMUN /VARL/C 1 1 ( 51) , CI2I51), CR1I51), CR2I51), EXSGMK51), 11 — 0190 

ltXSGMR ( 51 ) » F ( 52) , FBAR<91), FP<51), G(52), GPI51) 11 — 0200 

CUMMUN/lI NU/LMAX, LMAXM 11 — 0210 

C VARIABLES TO Bt PLOTTED IN PTETDL 11 — 0220 

CUMMUN/P TPL/AtTAU 51) , Afc TA2 I 51 ) » DELR1I51), 0ELR2151) 11 — 0230 

C... ..SCATLE CONTROLS 11 — 0240 

CUMMUN /CN IR/KDUT, KSENO, KTRL (13), KTRLTI13), KTRLX(13) 11 — 0250 

C.... .OTHER SCATLE VARIABLES 11 — 0260 

COMMON /MI SC/ECM , ETA, ETA2, FKAV, FKAYA, FKAYB, RHOBC, KHueN, ll — 027C 

1R HU BN j » SluMAO, SluMAl, TEMP 11 — 0280 

C SCATTERING AMPLITUDES ANU ADDITIONAL CROSS SECTIONS 11 — 0290 

COMMON /SACS/Al (150) , AR ( 150) , BI (ISO), BRI150), FCII150), FCR(150)11 — 0300 
1, SoMAC ( 150) , SluTEM(150), SRAT10(150) 11 — 0310 

C VARIABLES CUMPCItD IN RHOTB 11 — 0 320 

CUMMUN /RH T / DRHOL , DRHOI249), IFIRST, 1 LAST , RH0I250), RHOMAX 11 — 0330 

C ... . .AUX II I ARY SEARCH VARIABLES 11 — 0340 

COMMON /AS V/DEL ( 12 ) , 1D112), IIN, KDLMAX , LABEL ( 13 ) , NHP , NMLR, 11 — 0350 

INPCI, NPolP, PCI 11 — 0360 

DIMtNSlUN DELP1 (51) , UELMI(51) 11 — 0370 

DIMENSION IDK ( 4) , SNIU < 3) , CHICSI19) 11 — 0380 

EUUlVALENCE (OHIUSI 1) ,CH1 2ST) 11 — 0390 

DaTa ( IDK ( I ) , 1 = 1, 4) /oH N = ,6HKL( N) = ,6HRT (N)= ,6HKX ( N) =/ 11 — 0400 

DATA ( SN1DI 1 ) , I =1 , 3) /6H 1. ,6H XNURM ,6H ENORM/ 11 — 0410 

.....SCATLE OUTPUT 11 — 0420 

.....INITIAL PAut OUTPUT 11 — 0430 

IP ( KOu I .E 0 . 1)GU TO 11 11 — 0440 

WRlfEIc.lO) I DM 1 ) , (I ,1=1 ,13) ,IUK(2) , KTRL, IDKI3), KTRLT, 11 — 0450 

11 Dr ( a ) , rTRLX 11 — 0460 

1C FORMAT ( lnK.,‘t6X,8HCUNTRULS/lriJ ,14X,A6, 1315/1 HK,14X,A6, 1315, 11 — 04 70 

12( /1HJ , 14X,A6,13i 5) ) 11 — 0480 

NRM =r I RLX I 5 ) + 1 11 — 0490 

wR I TE I 6, 20 FM1, F MB , t LA B , 2 Z , X NORM , S M U l NRM ) , JMAX, NP 11 — 0500 

20 FuRMa r l iHL , 42 X , loriBASI C INPUT DATA/8HR F MI = F 10 . 5 , 9X , 11 — 0510 

lori FMu=P 10. 5, SX, 6H ELAB=P8.3 ,1 i X,oH ZZ=F5.0/ 11 — 0520 

2 8 HR XNURM =F 1 0. 7 , 9X , 6H SN0RM = A6 , 13 X,oH J MAX= 1 4 , 1 5 X , 6 H NP=13) 11 — 0530 

wR ITt ( fc,30) 11 — 0540 

30 FURMA T ( iHL , 3oX , 28HNUCLLAR PUTENT1AL PARAMETERS) 11 — 0550 

UALL POUT 11 — 0560 

wR 1 Tt ( < » 4 O RO 11 — 0570 

4 0 FORMAT (lH + > 79X, 3H RC=1PG14. 7) 11 — 0580 

rHuKU = IEMP*UUMM Y( 3) 11 — 0590 

WRITE! C,sC) RHORU, RHOBNG, RHCBN, RHOBC, ECM , FKAY , FKAYA, 11 — 0600 

1PRAYB, L T A 11 — 0610 

50 FORMAT 1 1HR , 3 7 X , 25HB A Si C COMPUTED CU ANT I T I ES/ 7 HKRH0R0= 1PG14 . 7, 5X , 11 — 0620 

16 HR HU R I =l» 14.7, 5X,6HRHURS=Gl4. 7,5X,bHRHORC=G14.7/ 11 — 0630 

2 7 HR eCM = o! 4. 7,PX,ori R = bi4.7 ,5X,6H KAS= G1 4. 7 , 5 X, 6H KAI = G14.7/11 — 0640 
3 7 HR EIA=G14. 7) 11 — 0650 

WR 1 TE ( 6,60) RHOMAX, LMAXM, NMAX, l RHC I N ( I ) , 1= 1 , NMAX ) 11 — 0660 

6 C FORMA T l 1H J , 42 X , 1 6H I NTE OR A 1 1 UN DATA/ 8HKRH0MAX= 1PG14.7,12X» 11 — 0670 

16HLMA XM=1 2, 2 5X, 5HNMA X -=12 /7HKRH0I N=OPIOF12.4) 11 — 0680 

NMAXM =NMA X— 1 11 — 0 690 

WRITE! 6, 7 C ) (DRHUINII ) ,1 =i , NMAXM) 11 — 0700 

7 C FORMA T ( 8HRDRH01N = 6X,9F12.4) 11 — 0710 

CALL PbNUUT 11 — 0720 

1 F < RSeND.uT. 1)GU To 121 11 — 0730 

11 uO TO I 15 , 121 ,21,21) ,RSENl) 11 — 0740 
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111 


C INITIAL Page JU [PUT t SINuLE CASE CNLY 11* 

lb IF< MRL( 2 ) .i\lt. i JoU TU 35 11* 

*KiTt(6,60) CHI2ST, CHI2PT, CH12T 11 

80 FORM a T ( itf L » 4l X , 1 dhSUM UF Lrtl SUUARE 5/ 13 HKCHI SQ S I GMA= 1 PG 14 . 7 , 7X » 11 
UOHcHlSg PUL =G 1 4. 7,9X,12HCHISQ T GT AL=G14. 7 ) 11 

IPlKULMAX.tO. 1)G0 TO 16 11- 

*RiTE(6,9C) 11* 

9 C FUKMAT ( 1HJ ) 11- 

CALL SUUF 11- 

16 DO 17 KK= 1, NC SN 11 

17 CHiUS(KK)=CrtiUs(i<K)/CSNRM 11- 

WKlTcI 6,280) CSNKM, CH12ST, CH12PT, CHI2T 11- 

280 FUkMATC lHK,36X f 20HSUM OF CHI SwUARES /F5 .0/1 3 HKCHI S C S I GMA= IPG 14. 7 1 1- 
1, 7X, lOHCHiSU PUL=G14. 7, 9X,i2HCHl SU TQTAL=G14.7) 11- 

IHNUCrtAX.fcg.DGU TO 18 11- 

WK iTt I 6, 9C) 11- 

CALL SUcF 11- 

16 WK I TE ( 6 , 1 UU j SbrtRTH, fc NORM 11- 

1C0 FOkMm I IiHL,24X,52HREACTlUN CROSS SECTION AND DATA NORMAL 17 AT IUN FA 1 1- 
1C ToK / 1HK, 2UX, iiHbIGMAR ( IH) = 1PG1 4. 7 , 1 9 X ,6HE NORM= G14 . 7 i 11- 

C. .... OUTPUT EXPERIMENTAL, THEURE TICAL CROSS SECTION, POLARIZATION 11- 

21 cALl SKIP 11- 

rtK I T L I 6 , x iCJ 11- 

ilC FORMA T ( IH J , 2X , 5HTh£ TA , 6X , 8H SI GMA Th ,8 X ,1 OHS I GT H/ S I GC, 9X , 6H POL TH, 11- 
liuX,8riSlGMA LX, 8X,10H SioE X/SI oC , 9X ,6HP0L EX) 11- 

1F I KTR LX( 5 } . NL . C) WRl TE <6 , 12 0) SMD ( NRM ) 11- 

120 FUkMAT ( lri+,illX»A6»7H*SGMAEX) 11- 

DO 28 J = i , JMAX 11- 

slGXGC=SbM«t X( J)/SGMAC < J) 11- 

wR I Te I 6,220) THtTADlJ), SbMATH ( J) , SRATIO(J), PULTH(J), SGMAEX ( J ), 1 1- 
lSIGXuC, PULEX(J) 11- 

22 C FUKMATi 1H J,F8.3 , 1P6G17. 7) 11- 

IFIKTRLXI 5) .fcU. CiGO TU 2b 11- 

SGM t XN = SN URM* SG MAE X ( J ) 11- 

*KlTLi6 f l30) SoME XN 11- 

13 C FUKMATI iH + , 1 1 OX , IPG 1 7 . 7) 11- 

2 b CUN TIN CE 11- 

co ru <i n- 

C OUTPUT ThtURE T 1CA L CROSS SECTION, POLARIZATION CNLY 11- 

35 CALL SKIP 11- 

WR1TEI6,I40) 11- 

140 FuKMArilriJf 9X,5H THETA ,19X,7HSIGMATH,18X,8HSIG/SIGC,I8X,6HP0L TH) 11- 

DU 38 J= 1 , JMA X 11- 

38 mfK 1 Tfc ( 6 , 1 50 ) ThtTAOU), SGMATH(J), SRATIQIJ), PCLTHIJI 11- 

130 FukMATI iHJ,iPG20. 7,4o23. 7) 11- 

41 1 F ( K TR L ( o ) . E 0 • 1 ) oil TO 121 11— 

I F ( N T K H 6 ) . Nt • 2 ) G U TO 48 11- 

c output Scattering amplitudes a,b 11 - 

lALL SKIP 11- 

wRI TE( 6, 160) 11- 

1 6 C FukMaT I 1HJ , 1 i X , 2HAR ,23X,2HAI ,23 X ,2HBR ,23X,2H6I ) 1 1- 

00 43 J- 1 » JMA X 11- 

45 rtkITE(6,15U) AR(J), A I ( J ) , 6K ( J ) , Bl(J) 11- 

4b IFInTRLI 1 Z ) .NE . 1 ) GU TU 53 11- 

C UOTPUT A.mU PLOT FURM FAC TORS 11- 

cALL SKIP 11“ 

i TE ( 6, 1 ?0) 11- 

1 7 C FORMA I I 1 M J , 9 X , 6HRHU ( i 1 ,15X ,4HFFC K , 16X,4HFFC1 ,16X,4HFFSR, 16 X, 4HFFSI 11- 

u li- 

DU 51 i- 1 , I LA S T 11- 

51 WR I TE ( 6,1 80 ) RHU(l), FFCR(l), FFCIU), FFSR(l), FFSI(I) 11- 


-0750 

-0760 

-0770 

-0780 

-0790 

-0800 

-0810 

-0820 

-0830 

-0840 

-0850 

-0860 

-0870 

-0880 

-0890 

-0900 

-0910 

-0920 

-0930 

-0940 

-0950 

-0960 

-0970 

-0980 

-0990 

-1000 

-1010 

-1020 

•1030 

-1040 

•1050 

-1060 

•1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 
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18C FORMAT ( 1H J , IP 6G2 0. 7) 

CALL PIFPKI 

S3 IHMKU2i.Nt.DkiU TO fal 

C OUTPUT CHISJ ANL) ERRORS FUR SIGMA AND POLARIZATION 

CALL SKIP 
WRI TE! 6, 190) 

19C FORMA T ! 1H J » 9X , 3H THE T A , 1 3 X ,9H DS1 GMA E X ,13X , 7 HO POL tX, 8X, 

116HUHI SQUARE SIGMA, 5X.14HCHI SQUARE POL , 5 X , 16 HCHI SQUARE TOTAL) 
00 3d J-i i JMA X 

6E WR I Tt 1 fc , 1 dO ) THETAD(J), DSGMEXIJ), OPOLEX(J), CHI2S ( J ) , CH12PIJ), 
1CHI2I J I 

C OUTPUT RtAL A NO 1 MAG PARTS OF C-COEFF I C I E NTS 

61 CALL SKIP 

WRITE ( t, 2C0) 

200 FORMAT 1 1HJ , I1X, 1HL , 14X , 1 3HRt A L C IL+ 1 /2 ) , 12 X , 1 3H l MAG C ( L + 1/ 2 ) , 1 2X , 
113 Hk t A L U (L- 1/2) ,12X,13 HI MAu CIL-1/2)) 

00 63 L = 1 , LMA X 
L 1 = L- l 

63 wR 1 T t ( £ , 2 1 0 ) LI, URllL), CI1IL), CR2(L), CI2IL) 

210 FORMAT! lh J , I 1 1 , IP G30. 7 , 3G2 6. 7 ) 

C COMPuTt ANU OUTPUT SUATTERINu PHASE SHIFTS 

CALL SKIP 

WR 1 TE (6, 1399) 

00 ADO L=i,LMAX 
L 1=L— 1 

ALTAI! L)=2.0*SURT (CR1 !L)**2+1.5— CIi!L) ) **2 ) 

AETA2! L ) = 2.0* SORT (CR2 ( L ) **2 + { . 3-C I 2 ( L ) )**2) 

OLLP I! L )=-. 3*aLUo ( A t TA1 ( L) ) 

OELMl! L)=-.5 *ALUG<AeTA2!L) ) 

T EM =C I 1 ( L )-. 3 

IF! UR 1 (L ) ) 402 , 401,401 

401 IFMtM) aOJ,4C3,a 04 

403 0 1 L R 1 ( L ) = . 5* A T A N ! — C R I (l) / TEM) 

GU To HO 

404 UELR 1 ! L )= .3* l 3. 141592 7 + A TA M -CR1 i L ) /TEM) ) 

GO TO 410 

402 IF! TeM ) aC5»4C5,40o 

403 OtLRi! l) = 3. 1415 92 7+.:>*ATAN (— U Ri ( LI / T £ M ) 

Go TU 410 

4CL OllRI!L)=. 3*( 3.1413 92 7+ATAN( — CRl!LJ/TtM)) 

41 C IEM=C I<!L )-. 5 

l PI uR 2 (L ) ) 1AU2, 14 01 ,1401 

1401 IF! TEM ) 1A03, 1403,1404 

1403 0ELR2! L)=.5*ATan!— LR 2 l L) /TEM) 
uU To 141 C 

1404 0ELk2! L ) = .3*1 3. 141 592 7+ATANI-CR2 (LJ/TEM) ) 

GU TU 1410 

1402 IFITtM) 1 40 3, 1 4 C 3 , 1 4 Co 

1405 0ELr2(L)=J. 141592 7* . 3 * A TA N (-UR2 ( L) /TEM) 

GU TU 141 0 

I40t 0 £Lr2! l ) = .3*! 3. 141 3 52 7* A TAN ( -CR2 1 L ) / T EM ) ) 

1410 WRITE ! 6 , 1 40 0 ) L 1 , At T A 1 1 L ) , A t TA2 ( L ) ,UELRi!L) , 

10ELP I I L ) , JELR2 ( L) ,0tLMl I L) 

40 C CUNT IN Lt 

IF!r\TRLX! 2) — 2) 121,1413,121 

1415 WRI Tt ! t, 14 20) 

1 42 C FORMAT! 1HL ) 

142 5 WRI Tt l fc, 14 30) ! L)c LR1 (D.JELPId) ,0ELR2 !I ) , OELMl! 1), 1=1, LMAX) 

1 43 C FURMa T ( 2H* dPl0.3) 

1395 FURM A T ( 5r1 L, 9X , 4HE T A 1 ,1 o X ,4H t T A2 , 13 X , 1 1 HOE LR1-0EL PR , 1 1 X , 

15H0 El P I, 13X, 1 1H0ELR2-0ELMR ,11 X,5H0tLMI ) 

1400 FORMAT !i3,iPou20. 7) 


11— 

1360 

11 — 

1370 

11 — 

1380 

11— 

1390 

1 I'- 

1400 

ll— 

1410 

11— 

1420 

11— 

1430 

11— 

1440 

1 I'- 

1450 

ll— 

1460 

11— 

1470 

1 I'- 

1480 

ll— 

1490 

1 I'- 

1500 

ll — 

1510 

1 I'- 

1520 

ll— 

1530 

1 i'- 

1540 

ll — 

1550 

11— 

1560 

1 I'- 

1570 

ll— 

1580 

1 I'- 

1590 

ll — 

1600 

1 I'- 

1610 

ll— 

1620 

11 — 

1630 

11 — 

1640 

11 — 

1650 

1 I'- 

1660 

ll— 

1670 

11 — 

1680 

11 — 

1690 

1 i'- 

1 700 

ll— 

1710 

1 I'- 

1 72 0 

ll — 

1730 

1 I'- 

1740 

ll— 

1750 

1 i'- 

1760 

ll" 

1770 

1 I'- 

1780 

ll — 

1790 

1 i'- 

1800 

ll — 

1810 

1 I'- 

1820 

ll— 

1830 

11— 

1840 

11— 

1850 

11— 

1860 

1 I'- 

1870 

ll — 

1880 

11— 

1890 

1 I'- 

1900 

ll— 

1910 

1 I'- 

1920 

ll— 

1930 

1 I'- 

1940 

ll — 

1950 

11— 

1960 

11— 

1970 
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o o r 


121 RETURN 
END 


11—1980 
11— 1990 


ilBFTC PGEN LOST, DECK 12 — 0010 

SUbRucTINE PGEN4 12 — 0020 

0 VARIABLES LStO FUR KNEE AND TAIL VARIATIONS 12 — 0030 

COMMON / SC nFF / TH ( 2 1 f TN1(2J, TN212), TRM(2),PMA, PMB 12 — 0040 

C SLATLE PARAMETERS 12 — 0050 

COMMUN/PAKA/RG. RO, V, *, A, V St WS , SG , 0UMMYI4), NAME! 12 I 12 — 0060 

C SCATLE CUNTkOLS 12 — 0070 

COMMON /CN Ik/kUC I, KSENO, KTRL(U), KT RLT ( 13 ) » KTRLXI13I 12 — 0080 

C UTHER SCATLt VARIABLES 12 — 0090 

COMMGN/MI SC/ECM, E I A » ETA2, FKAY, FKAYA, FKAYB, RH06C » RHO BN, 12 — 0100 

lkHUdNG, SlCMAOt SIGMA1, TEMP 12 — 0110 

C VARIABLE^ COMPUTED IN PGeNa (NUCLEAR POTENTIAL TERMS J 12 — 0120 

CUMMUN /PG u/Fl P T # JCRB ( 2 50) , UCill(25U), UCRM(250), UCIM(250), 12 — 0130 

1USRB ( 2 SO) • US1 B (250) » USRM(250), USIP1250) 12—0140 

C VAkIaBLeS COMPCTEO IN PGEN4 (FURR FACTORS) 12 — 0150 

CUMMuN /PjF/FFCI (250) » PFC1M(250), FFCR(250), FFCRM(250), F FS I ( 2 50) 12— 0160 
i, FFSIR(250), FFiR(250), FFSRM(250) 12 — 0170 

C VaR IAuLcS COMPUTED IN RHuTB 12 — 0180 

CUMMUN /RHT/DRHOL, URHUI249), IFIRST, I LAST , RHU(250 )» RHOMAX 12 — 0190 

MM=i JLRING CALCULATIONS AT THE BEGINNINGS OF INTEGRATION INTERVAL 12 — 0200 

.....MM=2 OLKING CALCULATIONS AT THE MIDPOINTS OF INTEGRATION I NT ER V ALS 12— 02 1 0 

mm = 3 during putich calculations 12 — 0220 

MM= 1 12 — 0230 

1 Tl= V/ECM 12 — 0240 

T 2= w/ECM 12 — 0250 

T 3= 2.* FKaY/A 12 — 0260 

T 10=- V S/EcM 12 — 0270 

TI1=— rtS/ECM 12 — 0280 

T 4= T J* Ti U 12 — 0290 

T 5 = T 2* T 1 1 12 — 0300 

T fa = FKAYA 12 — 0310 

IFl Ad S(Tb ) .L T. l.E-10) T6= SI GN( I . E-10 , T6 ) 12 — 0320 

T 7 = E Ia/KHubC 12 — 0330 

Td = R HUB u#* 2 12 — 0340 

T9 = 2.*cTA 12 — 0350 

T 12 = FKAYB 12 — 0360 

1F( AbS( T1 e).L T. i.E-10) T12= SI G N ( 1 . E- 10 , T 12 ) 12 — 0370 

IFl KNTv.NE.O) TEMX=TFI (A) 12 — 0380 

T Tw V=D UMM Y ( 1 ) 12 — 0390 

IF(KTRL(i).NE.i.UR.KTRLX(l) . L I. 2 ) T T WV=0. 12 — 0400 

KUC 1=0 12 — 0410 

UCIX=0. 12— 0420 

FFC IX = L . 12 — 0430 

IF ( «.EU.O. .AND. TTrV.EU.O. ) KUC 1=1 12 — 0440 

IF(KTRLX( 7I.NE.2) GU TU 2 12 — 0450 

RHjBRL = TEMPED UMM Y( B ) 12 — 0460 

T 26 = EKa Y*U UMM Y ( 2 ) 12 — 0470 

IFl Ab S( T26) .LT. l.E-10) T2 6= SI G N ( 1 . E -10 , T26 ) 12 — 0480 

2 CONTINUE 12 — 0490 

IFl MM .Ew. B)GQ TU 4 12 — 0500 

C SET UP LOUP UN l 12 — 0510 

1=0 12 — 0520 

J 1=1+1 12—0530 

RHUX = RHUH) 12 — 0540 
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4 TtMX = (KHUX-KHOdiM) /T6 
T EMX = AMlNli TtMX,60.) 
cX= FXP(TtMX) 

TFlKTRLt JL) .Nfc.2) GU TO 7 
S 1 = 0. 

IF< RHUX.L T .RHUbN) 31^=1 . 

gu ro e 

7 Si = 1 ./( i.+EXi 

8 S2 = EX*31**2 

I F ( RHJ X .G T .KHG6C ) Gu TU 9 
S3 = T 7#( 3.-RHOX** £ 2/T8) 

GU TU il 

5 S3 = T9/RHUX 
11 S4 = S2/KF1UX 

C COMPUTE FFCKX ANU UCRX 

1F(KTRL( /) .Nfc.G) GU TU 33 
IF(RTRLX( 7J.EW.2) GO TO 19 
FFCR X = 31 
GU ru 56 

19 TtMX = (KHUX-KHUdRL) / T26 
I fcMX = AM INK ItMX, 60. ) 

F FCK X = 1. /( l.+tAP< TE MX) ) 

Gu TU 5b 

33 FFCRX = TF(l t KTKL(7) tRHGXi 
56 TCRX=Ti*<-FCRX 

UoRX=- i.- TCRX+33 

C CUMPUTt PFtiX AMU XIX 

1F( iURLI 6) .ut . 0) GU TU 63 
I F ( ROC i.cU.DGO TU 66 
lFiRTKU 1 ) .Nfc.il GU TU 75 
TtM 1= (RHUX-KFlObNG) /T12 
T EM 1 = AMINU TtMl, 35. ) 

IF( KTRLXI 1 ).t U. l.OR. KTRLXt 1 ) . hU.3) 
3 1= t XP(- TtMl**2) 

IF(RTKLX( iJ.Eu.O) GU TU 73 
5 i V = l./l i . +t XP (TtMl/. 6 9) ) 

GU TU 7 3 

6 3 t X 1 = EXP ( TtMl) 

31 = < 4./( l. + tXi))*(tXl/(L.+EXl) ) 
IFlRTKLXl 1) .tw. 1) GU TU 73 
3 1 V = 1./ ( l. + E XI) 

75 UC1X = - T2*3l-SlV*Tr*V/tCM 

FFl IX = ( Sl^h+blV^TTwV) / (W+TTWV) 

GU TU 16 

63 FFC IX = TF < 1,KTKL< 6) .KHUX) 
ULiX=-72*FFClX 
66 TCI X=— LC i X 

C COMPUTc FF3RX AND G3RX 

IFl KTKLl 9 ) .Nt . OGU Tu 93 
FFbRX = 39 
U3kX=T4*FFSR A 
GU TU 96 

93 F F 3k X = TF l 2,RTRt( 9) ,RHUX) 

CN1 = -5 

IF ( UU .tu .2) CNi = FKAYA 
U3RX = CN1*T4*FF3RX 
9 6 T 3K X = L SRX 

IF i RTRL( 1 i) .tU. 0) uU TU 108 
T 30 = .C04927*t TA*tCM 

RHU Y= AMA A 1 ( RHO X * RHObC I 
U$RX=L SRX+T30/kHUY**3 


12—0550 
12 — 0560 
12—0570 
12—0580 
12—0590 
12—0600 
12—0610 
12—0620 
12—0630 
12 — 0640 
12—0650 
12 — 0660 
12—0670 
12—0680 
12—0690 
12—0700 
12—0710 
12 — 0720 
12 — 0 730 
12 — 0740 
12 — 0750 
12 — 0760 
12—0770 
L2 — 0780 
12—0 790 
12 — 0800 
12 — 0810 
12—0820 
12—0830 
12 — 0840 
12 — 0850 
12—0860 

GO TO 63 12—0870 

12—0880 
12 — 0890 
12 — 0900 
12 — 0910 
12— 0920 
12 — 0930 
12—0940 
12—0950 
12 — 0960 
12—0970 
12—0980 
12 — 0990 
12 — 1000 
12—1010 
12—1020 
12—1030 
12—1040 
12 — 1050 
12 — 1060 
12 — 1070 
12—1080 
12 — 1G90 
12 — 1100 
12—1110 
12— 1120 
12—1130 
12 — 1140 
12—1150 
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1 • • • 

.CUMPJTt FFSiX A NL) LSIX 

12 — 

1160 

108 

I F I KTR L I ICI.Nt.OI bO IU 113 
FFSIX = 34 

12 — 
12 — 

1170 

1180 


U3IX=T5*FF3lX 

12 — 

1190 


GU TO lid 

12 — 

■1200 

113 

FFiiX = IF I Z » K IRL I 1 0) *RHUX) 

12— 1210 


CNi = .3 

12— 

1220 


IF ( ITJ.fcJ.2) CN 1 =F K.A YA 

12— 

■1230 


US1 X = CO 1*1 5*F F SI X 

12— 

1240 

118 

TSIX=L3IX 

12— 

1250 


GO TU I 123, 133,195) ,MM 

12— 

1260 

123 

FFoRI I )~ FFCKX 

12— 

1270 


OCR b ( I )= LCRX 

12— 

1280 


FFu l( 1 ) = FFC i X 

12— 

1290 


UC Id l I ) = CCIX 

12— 

•1300 


FFSR( I )= FFSKX 

12— 

1310 


USRbl I )= LSRX 

12— 

1320 


FFSil I )= FF SI X 

12— 

1330 


USIbl 1 )= LSIX 

12— 

1340 


IF ( 1 . c L < 1 LA ST ) GO TO 175 

12— 

1350 


MO = 2 

12— 

1360 


RHOX = RHOX+. 5*DKHO( l ) 

12— 

1370 


Go TO 4 

12— 

1380 

133 

FFCRM ( I ) = FFcRX 

12— 

1390 


OCRMl I )= OCR X 

12— 

1400 


FFC IM ( J)= FFuIX 

12— 

1410 


OC 1M( I )= uCl X 

12— 

1420 


FFSKM { I ) = FF SRX 

12— 

1430 


USRMI I )- oSkX 

12— 

1440 


FFS1MI I)= FF SI X 

12— 

1450 


0 3 1 M ( I )= L 31 X 

12— 

1460 


MM= 1 

12— 

1470 


GU TO 2 

12— 

1480 

175 

RETURN 

12— 

1490 

m m m 

.tNTRY FOR POT1CH CALCOLATIONS 

12— 

1500 


fcN TRY PGOONIRHOT, TOR, TLl , TSR, TSI ) 

12— 

1510 


RHuX = RFOT 

12— 

1520 


MM = 3 

12— 

1530 


bU TO 1 

12— 

1540 

195 

TOR =T oRX 

12— 

1550 


TC I = TC IX 

12— 

1560 


T SR = 1 3KX 

12— 

1570 


Tdi=T3iX 

12— 

1580 


GO Tu 175 

12— 

1590 

• • • 

.ENTRY TO INITIALIZE PGEN4 

12— 

1600 


ENTRY PbN IN 

12— 

1610 


nNTV=.< 1RL I 7)«-KTRL(8) + RTRL(9)«-KTRL(10) 

12— 

1620 


IF ( ON T V .N E . 0) RE Al) (5,200) TH, TM, T N2 , PMA , PMB 

12— 

1630 

cQC 

FORM A T I bE 10.0) 

12— 

1640 


GO TO 173 

12— 

1650 

m m m 

.ENTRY FOR TF X INITIAL OOTPUT 

12— 

1660 


ENTRY PGNOOT 

12— 

1670 


1 F ( KN I V.N L .0) mRI TE ( 6 ,250) TH(1), TRP(l), T N1 ( 1 ) , TN2I1) 

, PMA, 12 — 

1680 


IT HI 2 ) , TRMI2), TN1I2), TN2I2), PMb 

12— 

1690 

250 

FURMaTIThL Ha=E 1 b. 9 » 7ri KMA=E16.9,7H N1A=E16.9,7H 

N2A=E16.912— 

1700 


i, 7H PMA =t 16. 9/ 7H rib = E 16. 9 » 7H RMb=E16.9,7H N1B= 

E16.9,7H 12— 

1710 

2N 2b =£ 1 6. 9 * 7H PMb=t 16. 9) 

12— 

1720 


bU TO 173 

12— 

1730 


ENO 

12— 

1740 
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cs c 


SiEFTC TFX LUST , DEC K 

FUNCT ICN TF ( JTQ,KGD,KHOX) 

• SPECIAL CENTRAL NUCLEAR FURM FAC TOR 

• VAR I A 8 LE S USED FUR KNEfc ANU TAIL VARIATIONS 
CGMMUiM/S^NFF/TH(2J • TNU2), Ti\2(2J, TRMi2),PMA, PM B 

C OTHER SCATLt VARIABLES 

COMMUiM/MI SC/tCMf ETA, ETA2, F KA V , F K A Y A , FK AY B, RHUBC, RHUBN, 
iRHUriiMvit SIoMAO, SIGMAi, TEMP 
C • .i>C ATL E PARAMETERS 

COMMON /PAKA/RG, RO, V, W, A, VS, wS , BG , OUMMY(A), NAME! 12 ) 

itu=j to 

GU TU (3»6),iTQ 
3 I X = 2 

IF(KUU.Eu.l) I X =i 
GU TU 9 
6 I X= 1 

IF ( KUD.Lt:. i)GU TU 9 
ITO = i 
I X= 2 

9 T TN= INK I X) 

IF(RHJX.„T.KHOBN) T TN= TN2(lX) 

T 20 = R FU X /KHuti N 
TF = 0. 

IF( TTN*ALUo( T2C) .GT.80. ) cU TG 38 
TEM = TIN*FrAY*A 
I F ( TEM .NE . 0. ) GU TO 12 
TO = T 20* * (RHUbN/FKAY*A) 

GU TU 18 

12 Tw=< T2C** I TN-1. )*RHUBN/TEM 
I F ( Tu .GT .80. ) GU TU 33 
TG = EXP l TO ) 

18 TF = i ./( i • + Tu ) 

IF(RH0X.l> r.TRMI IX) )GU TU (33 ,2 8) , I TO 
T 2 1= KFUX/IRM I X) 

1HH = 1H( !*)*( i. + 2.*T21)*(l.-T21)**2 

IF ( ITO .tsj GU IU 28 
TF - TF* ( 1 .+ THH ) 

GU Tu 25 
28 TFfSl = IF 

Th= K HUdn * T2G** T TN* To* ( TFN/RHCX) **2/ ( F K AY * A ) 

IHKHJX.'mT.TKMIIX) )cU TO 33 
T 24 = 6 .* TH( I X >* (1 T21 ) /TRM( I X) **2 

TF = I24*TFN + (i. + THH)*TF 

35 kETURN 

ENTRY TFKOUM) 

TRM ( 1 ) =PMM*KnubN 

TkM ( 2 ) -PMo*RHuBN 

TF=OUM 

bu TU 3 3 

END 


13—0010 
13—0020 
13 — 0030 
13—0040 
13— 0C50 
13 — 0060 
13—0070 
13—0080 
13—0090 
13—0100 
13—0110 
13—0120 
13—0130 
13—0140 
13 — 0150 
13— 0 160 
13—0170 
13—0180 
13—0190 
13—0200 
13—0210 
13— 0220 
13—0230 
13—0240 
13—0250 
13—0260 
13—0270 
13 — 0280 
13 — 0290 
13 — 0300 
13 — 0310 
13 — 0320 
13 — 0330 
13—0 340 
13—0350 
13—0 360 
13—0370 
13—0380 
13 — 0390 
13 — 0400 
13—0410 
13—0420 
13 — 0430 
13 — 0440 
1 3 — 0450 
13—0 460 
13 — 0470 
13 — 0480 
13 — 0490 
13—0500 


4> I 8 F T C IN T C T R LUST 
SUbRUUllNE IN 

C RADIAL *AVE F 

CUMMUN /Rrt F /L , 
C.....F1NAL RAJIaL 
CUMMUN /RuFF/X 
1Y2( 51 ) , Y 2P ( 3 


,UECK 
TC TK ( * ) 

UNC T 1 UlNS ANU THEIR FIRST DERIVATIVES DURING 
XC1, XCPi, XU 1 , XDPl , YCi , YCP1 , Y 01 , YDPi 
WAVE FUNCTIONS ANU FIRST DERIVATIVES 
1(51), XI P ( 3 i ) , X2 ( 51 ) , X2 P ( 5 1 ) , Y1151), 
i) 


UU1U 


14 — 0020 
INTEGRATI 14 — 0030 

14 0040 

14—0050 
Y 1P< 51), 14 — 0060 

14 — 0070 
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t-.- ..SCATLfc PARAMETERS 

COMMON /PAR A/Rb » RO, V, W, A, VS, WS , BG , DUMMY ( 4 ) , NAME( 12 ) 
CUM MO N /L 1 NU/LMAX, LMAXM 

C VARlABLtG CUMPCTtD 1 iM RHOTb 

CUMMUN/RriT/jRHULt DRHUT249), IFIRST, I LAST , RHGI250 ), RHOMAX 
C.....SCATLE CUN TRUL S 

COMMON /CNTk/KOCT, KStND, KTRL113), KTRLT ( 13) , KT RLX ( 13 ) 

C CONTROL INTEGRATION UF RaDIAL fc QliAT IONS 

IF IK ST = 1 
I DX = 1 

L K TkLX ( 6 ) = i FUR EXCHANGE FORM IN SPIN-ORBIT POTENTIAL 

IF(KTRLX( 6).E0.1) IDX=2 
Du 2 RK= I , ID X 
DU I L =KK , LMA X , I DX 
TEM=RHO( IF 1RST)** (L-i) 

xci = tem*khu( iFiRsn 

XD i = XC i 
FL=L 

XCP 1 = F L* T t H 
XUP i = XCP I 
YC 1=0. C 

Y D 1 = 0 * C 
YCP 1=0.0 

Y DP 1 = 0.0 
GALL AKINT 
Xl(L)=XCl 

X 2( L ) = XD 1 

Y 1(U = VC1 

Y 2( L ) = YD 1 

X IP { L ) =XC P 1 
X 2P ( L ) =XD P 1 

Y IP ( L ) = YC P 1 

1 Y2P( L ) = YU P 1 

IF ( lux .ED . UoU TO 2 
IF ( KK .Eg . 2 ) gU TO 2 
VSSAV= VS 
VS=DUMMY( A) 

CALL PGTICHU15) 

C GENtKATt POTENTIAL FUR EXCHANGE TERM 

CALL P GEN A 

2 CUN TAN IE 

1F{ IDX .Eg .2) VS= VSSAV 
RETURN 
15 K E T Ua N 1 
END 


14—0080 

14—0090 

14 — 0100 

14 — 0110 

14—0120 

14—0130 

14—0140 

14—0150 

14—0160 

14—0170 

14—0180 

14—0190 

14—0200 

14— 0210 

14—0220 

14—0230 

14—0240 

14— 0250 

14—0260 

14—0270 

14—0280 

14—0290 

14 — 0300 

14—0 310 

14—0 320 

14—0330 

14—0340 

14—0 350 

14—0360 

14—0370 

14—0380 

14—0390 

14 — 0400 

14—0410 

14—0420 

14 — 0430 

14 — 0440 

14—0450 

14 — 0460 

14—0470 

14 — 0480 

14 — 0490 

14 — 0500 

1 4 — 0 510 

14—0 520 


MbFTCKKINT LUST, DECK 15 — 0010 


SUBROUTINE KiUNT 15 — 0020 

C SCaILc CUNTRULS 15 — 0030 

CUMMUN/CN TR/KUbT, KSEND, KTKLU3), KT RLT { 13 ) , KTRLXU3) 15 — 0C40 

C.-. ••RACIAL MVE FUNCTIONS AND THEIR FIRST DERIVATIVES DURING I NT EGR AT 1 15 — 0050 
CUMMUN/RWF /L , XCL, XC P 1 , XD1, XDP1 , YCL, YCP1 , YD1, YOP1 15 — 0C60 

C.....SCATLE PaRAMlTEKS 15 — 0070 

CuMMUN/PAKA/Rg , RO, V, W, A, VS, MS, bG, DUMMY ( 4 ) , NAME(12) 15 — 0C80 

C VAkIAuLEg LUMP 0 Tt D IN RHUT6 15 — 0090 

CUMMU.M/RHT/DKHOL, DKHU ( 249 ) , IFIRST, I LAST , RH0(250), RHOMAX 15 — 0100 

C VARIABLE LUMPUTtD IN PGEN4 (NUCLEAR POTENTIAL TERMS) 15 — 0110 


CuMMUN /PGU/FLPT , UCRB (250) , UCIB(250), UCRMC250), UCIM(250), 15—0120 

IUSR B i 2 5G ) , USIB<250), USRM(250), USIM<250) 15 — 0130 
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c 


1 PL = L-1 

F2L =- 1 .CHFL 
F3L=FL*(Fl + 1.0) 

Tb=U LKd< IF IK ST )+F3L / (R HU (IF IRST) **2) 

• • - * I F VS = *S=0, OMIT REDUNDANT INTEGRATION STEPS 
IF(KTRL( i U.N6.CJGU TU 13 
IF( VS. Eg. U..ANG.HS.EW.O* ) GO TG 413 
13 PCb=Tb +CSkb( i FIRST 1 *FL 
PGb=Tb+U:>Rb< IF(RST)*F2L 
WCb =UC lb( IF IR ST ) + USib ( IF IRST) *F L 
wDb =UC ib ( IFIRST J + U S I b ( (FIRST) *F 2 L 
lK = lLASr-l 
GO 6 I=1F1 KjT,IK 
2 HUk HU = . 5* URHG ( I ) 

URHU2 = (GKHU( 1 )**2)*.5 
KHUM = RFU( I ) +HGRHG 
TH = UCRM( I ) +F 3L/ (RHGM**2J 
15 PCti=TM+U5KM( 1 )*FL 
PUMMrt + l$RM( I J*F2L 
UCM=uC im I)+US1M(I)*FL 
UUM=UC IM( I )+GSlM( I )*F2L 
XCPP l=Pub*XCl“QCb*YCl 
YCPPi=oub*xui+PCb*Yci 
XGPP 1 = P Jb * Xu 1-g Ob *YG1 
Y OP P 1 = JOb * XU 1 +P Ob * YG 1 
XC2=XL i +X CP 1# HDRHU 
YC 2 = YC 1 + YCP1*HGRHU 
XU2=XG 1 + XUPi^HUKHU 
YU2 = Y 0 i+YUP i*HURHU 
XCPP2=PCrt*XL2-gcM*YC2 
YCPP2=UUM*Xu2+PCM*YC2 
XuP P 2 = PUM ^Xi^-uDrt* Y02 
YOPP2 = wGtf *XU2 + POM* YG2 
GK HU 4 = • 5* UK HQ 2 
SGK HU = ,33 3 333u3* HGR HU 
XL 3 =Xo 2 + Xl PP 1*URHU4 
Y C 3 =Y C 4L + Y L PP 1*0RHU4 
XG3=XD2+XDPP L *0RH04 
Y03=Y0^+Y0PP 1*GRHU4 
XCP P 3 =PCM* Xu 3-g CM* YC 3 
YtPP3=GCM*XC3+PCM*Yu3 
XGPP3=POM*X03-UGM* YG3 
YuPP J=0UM*XG3+POM* YU3 
XC 4=XC 2+XCPP2*GKHU2+XuPl*HOKHG 
Y C 4 = YC 2 +Yu PP 2*D RH G2 + YC PI *HURHG 
X04=XJ^+XDPP2*UKHU2+X0P1*HDKHG 
YD4 = Y0 ^ + Y0PP2*CKHU2FY0P1*H0 kHC 
T b- UCR b ( l + l)+F3L/(RHU(I + l)**2) 

17 PCb = Tb+ti»Kb( I +1 j *FL 
P Cb — T d 4USKb( I + 1 ) *F 2L 
OCb =UC Ib ( l + L)+USIb( l+l)*FL 
u!Ob = UC ib( I + 1J+US1B (I+U*F2L 
XCPP4=PCb*XC4-U0b*YC4 
YCPP4=GCb*Xu4+PCB*YC4 
XGPP4=PGb*X04-gCB*YD4 
YGP P 4 = UGb * XG4 + P Ol>* YD4 
oXC = XCPP2 + XCPP 3 
SYC=YCPP2 + YCPP3 
SXU = XGPP2 + X0PP3 
SYG = YGPP2 +YGPP3 
TXC=SXu+XCPP 1 
TYC=SYu+YCPPl 


15 — 0140 
15 — 0150 
15—0160 
15—0170 
15—0180 
15 — 0190 
15—0200 
15—0210 
15— 0220 
15 — 0230 
15 — 0240 
15 — 0250 
15 — 0260 
15—0270 
15 — 0280 
15 — 0290 
15—0300 
15—0310 
15—0320 
15 — 0 3 30 
15—0340 
15—0350 
15—0360 
15—0370 
15—0380 
15 — 0390 
15 — 0400 
15 — 0410 
15—0420 
15—0430 
15 — 0440 
15 — 0450 
15 — 0460 
15—0470 
15 — 0480 
15 — 0490 
15—0500 
15 — 0510 
15—0520 
15—0530 
15 — 0540 
15—0550 
15—0 560 
15 — 0570 
15 — 0580 
15—0 590 
1 5 — 06 0 0 
15 — 0610 
15 — 0620 
15 — 0630 
15 — 0640 
15 — 0650 
15 — 0660 
15—0670 
15—0680 
15 — 0690 
15 — 0700 
15—0710 
15—0720 
15—0730 
15 — 0740 
15—0750 
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316 
32 C 


20C 


TXO=SXU+XDPPi 

TYD=SYD+Y0PP1 

T XL 1— Xu 1 + UKHU ( 1 )*( XCPH-SDRHU*TXC) 

I YU 1= YL 1+UKHU il )*( YCP 1 + SORHU* TYC ) 

TXU1=XU1+URHU( I )* { XUP 1 + SORHU* TXO ) 

TYUl=YDl+UKhO( I )* ( YUP1+SURHQ*TYD) 

TXC P 1 = XCP 1 + 3URFiU* ( TXC+SXC+XCPP4) 

TYCP 1 = YuP l+SDkFIU*( TYC+SYC + YCPP4) 

T XUP 1 = XUP 1*SDKHU*{ TXU+SXD+XUPP4) 

T YUP 1 = YDP H-bUKHG* { T YU + SYD+YDPP4) 

Tfcfl* AM AX UAbSi XC1) , Ad S ( YC 1 > , AdS < XC PI ) *ABS< YCP1) , 

1 Aa S ( XU 1) tAbS(YOl) *AdS(XDPl) ,Ad${YDPl) ) 

I F < TEM-1. £ + 30)21*21*316 

KfcNURM=rtM 

XC 1=XC 1/KfcNUKM 

YC 1=YC i/KENURM 

XCP 1- XuP 1 /KbNURM 

YuPl^YCPl/RENGRM 

X D 1 =Xl) 1/KbNUKM 

YU 1= YU 1/kENUKM 

XUP i=XUP 1/KcNGKM 

YUP i=YDP 1/RtNURM 

kK I T b (6f 2 00 ) Kb NURM * L * KH U ( 1 ) 

FUKMA T ( 24H kb NORMAL 12 A T1 ON F ACT GR= b 16 . 9 ,22H IN RKINT FOR COOEO L = 
13*9 H AND RHO = E 16 • 9 ) 

JSP IL L = 0 


UU TU 2 

21 XC1-TXC1 
YC1=TYC1 
X D i = T X D 1 
YD 1= T YD 1 
XCP 1= T XCP 1 
Y CP 1= T YCP 1 

xup i=txup l 

YUP 1= T YUP 1 
6 CON TIN LE 
4 RETURN 

C INTEGRATION STbPsFOK VS=WS=0, 

413 P Cd =T d 

OCd-UC lb ( IF Ik S I ) 

IK=IL AST- 1 
DU 46 l = i F IK ST » I K 
42 HDK HU = . 5* UKriU ( I ) 

UkHU2 = (UKHG< I) **2)*„5 
RHuM=RFU< I ) +HUKHU 
TM-UCkMl I )+FdL/(RHUM**2) 

415 PCM - T M 

wCM = UC IM (11 

XuPP i=PCd*XCl— UCd*YCl 

YuPP l = uCo*XCl + PCd*YCl 

XC2-XC 1+XCP1*HDRHU 

YC2=YC 1 + YC P 1* HUKHO 

XCPP2=PuM*XC2-UCM*YC2 

YCPP2=QuM*Xw2+PCM*Yc2 

DRHU+= .5* URH02 

SDR HU = .33 3 33333*Hl)KH0 

XC3=Xu^+XCPP 1+DKHU4 

YC3=YU^+YLPP1^DRHU4 

XuPP 3-PCM*XC3—UCM* YC3 

YCPP3=QCM*XC3+PCM*YC3 

XC4=XC^+XCPP2*DRHU2+XCPI*HURHG 

YU+=YC^ + YCPP2*UkrlU2+YCPl*HDKHC 

T b = UuR d ( I+iifFJL/ (RH0{I+1)**2) 


OPITS REDUNDANT EQUATIONS 


15—0760 
15—0770 
15—0780 
15—0 790 
15—0800 
15—0810 
15 — 0820 
15 — 0830 
15—0 840 
15—0850 
15—0860 
15 — 0870 
15—0880 
15—0890 
15 — 0900 
15 — 0910 
15 — 0920 
15 — 0930 
15 — 0940 
15 — 0950 
15 — 0960 
15—0970 
15—09 80 
I 15—0990 
15—1000 
15—1010 
15— 1C20 
15—1030 
15—1040 
15—1050 
15— 1C60 
15—1070 
15—1080 
15 — 1090 
15—1100 
15—1110 
15—1120 
15—1130 
15—1140 
15 — 1150 
15—1160 
15—1170 
15—1180 
15—1190 
15—1200 
15—1210 
15— 1220 
15—1230 
15—1240 
15—1250 
15—1260 
15—1270 
15—1280 
15—1290 
15—1300 
15—1310 
15—1320 
15 — 1330 
15— 1340 
15—1350 
15—1360 
15—1370 
15 — 1380 
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417 PCB=TB 

UCb=UO IB( 1 + 1) 

XCPP4=PCo*XC4-UCB*YC4 
YCPP4=gca*xc4+Pca*YC4 
SXC^XCPP 2 + XCPP 3 
SYC=YCPP2 + YCPP3 

txc^sxc+xcppi 

T YC -$ YC+YCPP 1 

TXC i^XCUOKHUUi'f' ( XCP1 + SDRHO* TXC ) 

TYC1=YCH-L)KH0U )* ( YCP1 + SDRHQ*TYC) 

T XCP 1= XCP i+SDRHG* ( TXL + SXC+ XCPP4 ) 

T YCP 1= YCP 1 + SDK HO* { TYC+SYC+YCP P4 ) 

TEM=AMAXi(A8S( XC1 J ,A8S( YCi) ,ABM XCP1) ,ABS( YCP1) ) 

IF( TfcM— l*E+30)42i ,421,4316 
4216 KENOKM=TEM 
432C XC 1=XC 1 /kENURM 
YC i~YC 1/RENURM 
XCP 1=XCP 1 /KENGRM 
YCP 1= YCP 1 /RE NORM 
WRITE (6, 4200)KENURM»L,RHO(I ) 

4^00 FORMA T ( 24H Rt NORMAL IZA TI ON FACT GR=E16 -9 ,22 H IN RKINT 
13, 9H ANU RHU^E 1 6* 9) 
bQ TO ^ 

421 XCi^TXCl 
YC i=T YC1 
X 0 1 = XC 1 
YD 1 =YC 1 
XCP 1= T XCP 1 
YCP 1= TYCP 1 
XDP 1=XCP1 
Y DP 1- YCP 1 
46 CUNTINLE 
44 RETURN 
END 


15 — 


15 — 
15 — 
15— 
1 5 — 
15 — 
15 — 


15 — 
15 — 
15 — 
15 — 
15 — 
15 — 
15 — 
15 — 
15— 
15— 
15 — 

FOR CODED L= I 1 5 — 
1 5 — 
1 5 — 
15— 
15 — 
15 — 

15 — 
15— 
15— 
15— 
15— 
15— 
15 — 


1 390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 


SI8FTC CSUb L LUST, DECK 

SUBROUTINE CSUBL 

C. ••••FINAL RADIAL WAVE FUNCTIONS AND FIRST DERIVATIVES 

COMMON /RwFF/Xl(51), X1PI51), X2(5U, X2PI51), Y1I51), Y1PI51), 

1Y2( 51) , Y2PI51) 

COMMON /L I ND/LMAX, LMAXM 

C VARIABLES WHICH ARE CALCULATED AS FUf'.CTIUNS OF L 

COMMON / VAKL /C 1 1 1 51 1 , CI2<51), CR1151), CR2(51), EXSGMU51), 
1EXS^MR(51), F ( 52 ) , FdAR (91), FP(51), G ( 52 ) , GP(51) 

C COMPUTE C-COEFFICIENTS 

DU 40 L~l , LMA X 

XNURM 1=AM AXi ( AB S ( XI ( L ) ),AaS(Yl(L)I ,AaS(XlP(L)) ,ABS(Y1P(L>) I 

TX1L = X1(L )/XNORMl 

TY 1L = Y I ( L ) /XN0RM1 

T X 1PL = X1P ( L ) / XN0RM1 

TY 1PL-Y1P ( L) /XN0RM1 

FN0RM=AMAX1(F(L) ,G ( L) «FP ( L) «GP( LI I 

TFL=FCL)/FNORM 

TGL=G( D/FNORM 

T FPL=FP( L )/PNURM 

TGPL = GPU ) /FNORM 

C01=TFL*TYlPL-TFPL*TYiL 

CO 2= TFPL* TX1L-TFL*TX1PL 


16 — 0010 
16 — 0020 
16 — 0030 
16 — 0040 
16—0050 
16 — 0060 
16 — 0070 
16 — 0080 
16 — 0090 
16 — 0100 
16—0110 
16 — 0120 
16 — 0130 
16 — 0140 
16—0150 
16 — 0160 
16—0170 
16 — 0180 
16—0190 
16 — 0200 
16 — 0210 
16 — 0220 
16—0230 
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CO b-T V 1L* TGPL-TYLPL*ToL+ TX1 L* TF PL-TX1 PL*TFL 
CG4 = TX1PL*TGL-TX1L*TGPL+TY1L*TFPL-TY1 PL*TFL 
CG 7 = 1 . C/( CG3**2+CU4**2) 

5 3 CRHL) =(u(J 1*CL) 3+CG2*CG4) *CG7 
Cl 1(L ) =( C G2*C0 3— CG 1*C U4) *CG7 

XNGRM 2=AM AX1(ABS(X2(L) },ABS(Y2(L)) ,A8S <X2P(L) ) ,ABS(Y2P(L)) ) 

TX2L = X2( L J/XN0RM2 

TY2L-Y21L ) /XNQRM2 

TX2PL=X2P ( L) / XNGRM2 

TY2PL = Y2P (D/XNGRM2 

CG1=TFL*TY2PL-TFPL*TY2L 

CU 2 = T FPL* TX2L-TFL* TX2PE 

CG3=TY2L* TGP L- T Y2P L* TG L+ TX2 L* TF P L— T X2 P L*TF L 
C04=TX2PL* TGL- T X2L* TuPL + T Y2L* IF P L-T Y2 P L*TFL 
CG 7 = 1 • C/( CU3**2+CU4**2) 

5 5 CR21L ) ’(uUi^oO 3+0 G2*CU4) *C 0 7 
4 0 0 12 (L ) = (0G2*oU3-CGl*CU4)*C07 

59 RETURN 
t NO 


16—0240 
16—0250 
16 — 0260 
16—0270 
16 — 0280 
16 — 0290 
16—0300 
16—0310 
16—0320 
16—0330 
16—0 340 
16—0 3 50 
16 — 0 360 
16—0370 
16—0380 
16 — 0390 
16—0400 
16—0410 
16—0420 


WBFTu Ab LUbT f DECK 

SUbRUUHNE Ab 

C * • • • -*SC A TL £ INPUT AND OUTPUT VARIABLES WHICH ARE FUNCTIONS OF THETA 

CUMMuN / TH i /UPUL t X ( 1 30) » DSuMEXilSO), UMAX, PULEXI150), P0LTH(150) 
lbUM AE X ( 1 3 C i 9 3 G M A T H { 1 3 0 ) ? THE TA ( 150) t THt T AU ( 150) 

CGMMUN/LI NO/LM^ X, LMAXM 

C . .. . ,VaR iABLEb wliiCH ARE CALCULATED AS FUNCTIONS UF L 

COMMUN/VaRL/C I 1 (31) , Cl 2 ( 5i ) t CR1<51), CR2(51), EXSGMH51I, 

IE XSGMR ( 5 1 ) » F { 52 ) » FBAR<9i), FP(5i), G (52 ) , GP(5i) 

U OTHER SuA TLE VARiAbLtS 

COMMON /Mi SC /ECM, ETA, ETA2, FKAY, FKAYA, F K AY B * RHG8C « RHGBN, 
lRHUbNGf bIGMAO, S I G M A 1 « TEMP 

C SLA T T cKll\o AMPLITUDES AND ADDITIONAL CROSS SECTIONS 

LUMMJN/SAuS/AIC 150) * A R ( 1 5 0) » BK150), BR(150)» FCK150), FCR( 150 
1, SoMAo ( 130) » SIuFEM(l30i , 5RAT1GU50) 
ulMENS iUNl P( 32) *PP ( 51 ) 

C COMPUTE SUAITEKING AMPLITUUEb At B 

FK A YD = i.U/FNA Y 
4 DU 20 J= 1 » JMA X 
ASUMK = C.O 
ASUMl^C.O 
BSUMR=C.U 
B SUM I = C • U 

0 CUMPUTtb LtGENDRE POLYNOMIALS 

S I 2= 1 • C/s IN < THE TA( J) ) 

LU = CUS( THE TA ( J ) i 
Pi 1)^,0 
Pi 2 ) =CU 
PPi 1 ) = C. 0 
TwULP 1 =3 • 0 
FL-i.C 

UU zU C t L=l, LMAXM 
TL =FL + J.O 

P ( L +2 ) = i T wULPl*CU*P ( L+l ) — F L* P ( L ) )/TL 

PP ( L + 1 ) = IL*S12*(CU*P (L+l) -PlL+2) ) 

TwUlP i = T wULP 1 + 2.0 
2GC € FL = TL 

DU 1U L= 1 t LMA X 


17 
17 
17 
, 17 
17- 
17 
17- 
17 
17 
17 
17- 
17- 
17- 
) 17- 
17 - 
17 - 
17 - 
17 - 
17- 
17- 
17- 
17- 
17 
17 
17- 
17- 
17- 
17- 
17- 
17- 
17- 
17- 
17- 
17- 
17- 
17- 
17- 
17- 


-0010 

-0020 

— 0030 

— 0040 

— 0050 

— 0060 

— 0070 
-0080 

— 0090 
-0100 
-0110 
-0120 
-0130 
-0140 
-0150 
-0160 
-0170 
-0160 
-0190 

0200 

-0210 

-0220 

0230 

0240 

-0250 

■0260 

0270 

■0280 

0290 

0300 

0310 

0320 

0330 

0340 

0350 

0360 

0370 

0380 
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FL =L 

ATR i=FL*CRl(Li + (FL-1.0)*CR2( L) 

All 1=FL*C 111L ) + (FL-1.0)*CI2(L) 

BTR l=CRi( L )-CR2(L ) 
dT I i=C lit L)-CI2(L) 

A TR 2=A TR1*EXSGMR(L)-(ATU*EX$GMI (L) ) 
ATI 2=ATRl*tXSGMi ( O + ( A T1 I*EXSGMR(L) ) 
BTK2=BTRl*EXSGMR(L)-l&TIl*tXSGMI (L) ) 
BTI2=6 IRl*EXSGMUL)+(6TIl*EXSGMRU) ) 
ASUMR=ASUMR+( ATR2*P(L ) ) 

A SUM I =ASUM I ♦ ( A T I 2*P ( 4, ) ) 

B SUMR = 6 SUMR + ( B TR2* C PP ( L ) ) 

10 b SUM 1 =65UMI+lBTI2*PP( L n 
AR ( J ) = FCR ( J ) + (FKA V0*A SUMR) 

AI(J)=FCi l J ) + ( F KA YO*A SUM I ) 
dR l J ) = FK AYD*B SLMI 
20 BI(J)= —FKAYO*B SUMR 
33 RETURN 
END 


17—0390 
17 — 0400 
17 — 0410 
17—0420 
17—0430 
17 — 0440 
17—0450 
17 — 0460 
17 — 0470 
17—0480 
17—0490 
17 — 0500 
17—0510 
17—0520 
17—0530 
17 — 0540 
17—0550 
17 — 0560 
17—0570 


ilbFTC SGSGCP LOG T , DEC K 18 — 0010 

SUbRUO UNE SuSGCP 18 — 0 02 0 

C SCATTERING AMPLITUDES ANU ADD I T I CN A L CROSS SECTIONS 18 — 0030 

LUMMuN /SACG/aI ( 150) , AR115U), 61(150), BK<150), FCK150), FCR( 150) 18 — 0040 
1, SUMAC ( 150) , S1GTEMU50), SRATIG1150) 18 — 0050 

C UThER SCATLE VARIABLES 18 — 0060 

CUMMON/Ml SC/ECM, E Ta , ETA2, FKAY, FKAYA, F KAY 8 , RH06C, R HO BN , 18—0070 

lRHUBNo, SluMAO, SIGMA1, TEMP 18 — 0080 

C SCATLE CONTROLS 18 — 0090 

COMMON /CN TR/KOUT, KStiMU, KTKL ( 1 3 ) , KT RLT (13), KTRLX(13) 18 — 0100 

C SCATLb INPUT ANO OUTPUT VARIABLES kIHICH ARE FUNCTIONS UF THETA 18 — 0110 

LUMMUN / TH 1 /L)PU L E X ( 1 50) , QSbMEX(150), JMAX, PULEX (150), POL T H( 1 50 ) , 1 8 — 0120 
1SGMAEXU50), SGMATHU50), THETAI150) , THETAD(150) 18 — 0130 

C CUMPUTt LKUSS SECTION, P UL AR I ZA T I UN , R A T I 0 ( S I G M A/S I GM A-CQU L ) 18 — 0140 

00 50 J = 1 , JMA X 18 — 0150 

SuMATH(J) = AR ( J)*AK< J ) + AI ( J) *AI ( J) + 6R(J)*6K(J)+BI(J ) *61 l J ) 18 — 0160 

PUL TH( J )= -12. 0*( AR( J) *BR (J)+AI(J)*BI(J))) / SUMAT Hi J ) 18—0170 

13 SUMAC ( J ) — F C R ( J ) *FCK ( J ) + FC 1 ( J ) *F C I ( J ) 18 — 0180 

1F1ETA) 7,7,8 18—0190 

b SRATIU(J) =SUMATH(J) /SUMAC (J) 18 — 0200 

15 UU TU 5 18 — 0210 

7 SRATIJ(J) =0. 0 18 — 0220 

5 IF(KTRLX( 3)) 1, 50,1 18—0230 

1 IF( USGMEX (J)-l.E+27)2,2,3 18—0240 

2 S lu TE M ( J ) = SUMAC ( J ) 18 — 0250 

UU TU 50 18 — 0260 

3 SIGTEM(J) =U SOME XI J ) 18 — 0270 

5 C CUN T IN UE 18 — 0280 

IS KtTURN 18 — 0290 

END 18 — 0300 


SiBFTC S I UMAR LUST, DECK 
SUBROUTINE SIUMAR 


19 — 0010 
19—0020 


77 



C.....CHI SQUARES, NORMALIZATION CONSTANT, AND SIGMA REACTION 
COMMON /CSW/uHl2ST, CH12PT, CHI2T, SUMSU6I, CHI2S<150), 

1CH 1 2P ( 150 ) , CH 1 2( ISO) , ENORM, SGMRTH , SNURM, X NORM , NP , CS NRM, NCSN 
C-..*. VARIABLES WH 1 CH ARE CALCULATED AS FUNCTIONS OF L 

CUMMO.M/VAKL/CI U5IJ , 012(51), C Ri ( 51 ) , CR2(5i), EXSGMK51), 

1EX SGMR ( 5 i ) , F ( 52) , Pd AR (91), FP(51), G(52), GP(51) 

CUM MU N /L I ND/LMA X, LMAXM 
C . .. • .OTHER SCATLE VARIABLES 

COMMON /MI SC/ECM, ETA, t TA2 , FKAV, FKAYA, FKAYB, RHOBC, RHOBN, 
1RHUBNG, 5 IGMAO, SIGMAl, TEMP 

C COMPUTE REACTION CROSS SECTIONS 

FL^C.G 
SGMRTH=0. 0 

CP i=( . 125665 /C6E+G2) /(FKAY**2) 

DO 20 L= 1 , LMA X 

SGMKTH = S^MkTH+PL* (C 12 ( L) - ( C 1 2 ( L ) >**2- (CR2 ( L) ) **2) 

FL = FL + 1 . U 

20 SGMRTH = SuMRTH+FL*UIl (L)-(CIi (L) )**2-<CRl(L) )**2) 

SuMRTH=CP I * SGMR TH 
13 RETURN 
END 


19—0030 
19—0 040 
19 — 0050 
19 — 0060 
19 — 0070 
1*9 — 0080 
19 — 0090 
19—0100 
19—0110 
19—0120 
19—0 130 
19—0140 
19 — 0150 
19—0160 
19—0170 
19 — 0180 
19—0190 
19—0200 
19—0210 
19—0220 
19—0230 


$ I BF TC CHI Su LUST, DECK 

SUuRULTlNt CHISQ 

C SuATLt INPUT ANU UUTPUT VARIABLES WHICH ARE FUNCTIONS OF THETA 

CUMMUN/TH I/UPULEX(150) , DSGMEX(15U), UMAX, POLEX(150), 
l^uMAEX ( 150) , So MA TH ( 1 5 0) , THE TA ( 150 ) , THET AD ( 150 ) 

C CHI SQUARES, NUKMALIZATI UN CONSTANT, AND SIGMA REACTION 

CUM Mu N /C5U/CH12ST, CHI2PT, CHI2T, SUMS { 16 ) , CHI2S(150), 

1C H i 2P ( 150 ) , C Hi 2 ( 150) , ENORM, SG MR TH , S NORM ,X NO R M , N P , CS NRM, NCSN 
C SCAILE CUNTKULS 

CUMMON/CN TR/KULT, KSEND, KTKL(13), K TRLT ( 3 ) , NF, NR, Nl, INI, 

IN 2 , 1N2, N3 # IN3, N4 , IN4, KTRLX(li) 

C AUXILIARY SEARCH VARIABLES 

CGMMUN /ASV/UELl 12) , ID(12), IIN, KDLMAX, LABEL (13), NHP, NMLR, 

IN PC T, NPCTP, PC T 

C SCATTERING AMPLITUDES AND AOOITICNAL CROSS SECTIONS 

COMMON /bACS/Al ( 150) , AR(150), 61(150), BR( 150 ) , FCK150), 
i, SGMACU5C), 5l G TEM ( 1 50) , SRATI0(150) 

DIMtNSION CH I U S ( 1 9) 

EUU 1VALENCE 

KCHIQS(i) ,CHI2ST) , (SUMS(l) ,SUM1S) , (SUMS (2) ,SUM1P), 

2( SUM S ( l)y S0M2S) , (SUMS (4) ,SUM2P) , (SUMS (5) ,SUM3S>, (SUMS (6) ,SUM3P), 
3( SUMS ( 7) , SUM4S) , (SUMS (8) , S UM4P ) , ( SUMS (9 ) , SUMFS ) , ( SUMS( 10) , SUM FP), 
4( SUM S ( 11) , SUMMS) , (SUMS (12) ,SUMMP) , (SUMS (13) ,SUMRS) , 

5( SUMS ( 14) t SUMRP ) , ( SUMS ( 15 ) ,SLM34S) , (SUMS ( 16 ) ,SUM34P) 

ANUM = 0 . 

DEN -0 . 

DU 20 J=i , UMAX 
T EM = S GMA T H ( J ) /U SGME X ( J ) 

ANUM=ANUM+TEM**2 

2C UEN=U£N+TEM*SGMAEX( J) /U SG ME X ( J) 
fcNURM = ANUM/DtN 

IF (KTRLX( 5) .EG. 2) SNURM=ENORM 
CH12P T = 0. 

CHI 2ST=0. 

DU 28 J=i,JMAX 

CHI 2P ( J ) ■= ( ( PUL TH ( J)-POLEX< J)i /DPCLEX ( 

CHI 2P T -C H I2PT+CHI2P(J) 


20 — 0010 
20 — 0020 
20—0030 


POL T H( 150), 20— 0040 
20—0050 
20— 0060 
20—0070 
20 — 0080 
20—0090 
20—0100 
20—0110 
20—0120 
20—0130 
20—0140 
20—0150 
FCRt 150)20—0160 
20—0170 
20— 0L80 
20—0190 
20— 0200 
20—0210 
20— 0220 
20—0230 
20—0240 
20— 0250 
20—0 260 
20— 0270 
20—0280 
20—0290 
20—0300 
20—0310 
20— 0320 
20—0330 
20—0340 
20—0 350 
20—0360 
20—0370 
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c 


c 


28 

32 

26 

40 


1 


10 i 

3 

4 


102 

6 


103 

7 

14 


104 

16 

16 

10 6 


106 


107 

IS 


30 

60 


38 

80 


7 C 
43 


C H I 23 ( J )= SoMATH ( J ) - SNOKM* SGMAE X ( J) 20— 

CHI23(J)=<CHI23<J)/! SNURM*3Id TEM(J) ) ) **2 20- 

CHI2! J >=CH12Sl J) * CHI2P(J> 20- 

CH12S r=CHl2ST+CHl2S! J) 20- 

C H I 2T =CH I 23T+CHI2PT 20- 

00 fU { 19,26,26), KDLMAX 20- 

DO 40 1=1,14 20- 

SUM SI I )=0 • 0 20- 

.OAL CUL ATc SPECIAL CHI SUUARES 20- 

IF (KDLMAX- 3) 1,16,1 20- 

1F (N 1 > 2,3,2 20- 

LIM = N 1+ INI 20- 

UO 101 J =N 1 » L I M 20- 

SUM1S = SUM1S+CHI2S! J) 20- 

SUM IP = S0M1P+CHI 2P ! J ) 20- 

IF ! N 2 i 4,6,4 20- 

L IM = IN2 20- 

DO 102 J =N2 , L I M 20— 

SUM2S = S0M2S+CHX2SIJ) 20- 

SUM 2P = SUM 2P+CH 1 2P i J) 20- 

IF (N 3 ) 6,7, 6 20- 

LIM = N3+IN3 20- 

DO 103 J =N3 , L I M 20- 

SUM3S = 3 UM 3 S+C H I 2 S ( J ) 20- 

SUM3P = SLM3P + C H I 2P ( J) 20- 

1 F ( N4 ) 14, 16,14 20- 

LIM = N4+IN4 20- 

DO 104 J =N4, L I M 20- 

SUM4S = 6UM4S + CHI2SIJ) 20- 

SUM4P = SUM4P + CHI 2P ( J) 20- 

SUM 34 S = SUM3S+SUM4S 20- 

SUM 34P = SUM3P+SUM4P 20— 

DU 106 J = 1 , NF 20- 

SUMFS = SUMF S+CHI 2 S! J ) 20- 

SUMFP = SUM F P+C H I 2P ( J ) 20- 

i = NF+1 20- 

DO 106 J =1 , NR 20- 

SUMMS = SuMMS+CHl 2S( J) 20— 

SUM HP = SuMMP+CHI 2P ( J) 20- 

I = NR + 1 20- 

DU 107 J =1 , JMA X 20- 

SUMKS = SUMR S+C Hi 2 S ! J ) 20- 

SUMKP = SLMRP+CH I 2P (J) 20- 

1F( K$END.NE.2)GG TO 43 20- 

»G UTPU I SCATLE PARAMETERS 20- 

CALL POUT 20- 

wKITE(6,6C) ENURM,CHI2ST,CHI2PT,CHI2T 20— 


FORMAT! 1H+,26X, 6HEN0RM=iPGl 4. 7 ,4 X , 7HCH I2ST= 01 4 . 7 ,4 X , 7 HCHI2 PT=G 14. 720- 


1, 6X , 6HCHI ir=0 14. 7) 

CALL SOUF 
DO 38 KK= 1 , NCSN 
CHIOS! KK ) =CH1 US (KK) /C SNRM 
WR I IE! 6,80) C SNRM , CHI 2 ST , CH 
FORMAT l 1HK, 10X,20HSUM OF CHI 
1HCHI2P T = 6 1 4. 7#5X, 6HCHI 2 T=G14. 
CALL SOCF 
wR I TE ( 6, 70 
FORMAT! 1HK,10!2H- )) 

RETURN 

END 


20 - 

20- 

20 - 

20 - 

I2PT, CHI2T 20- 

SOUARES /F3.0 ♦ 1 6X , 7 HC H I2S T=G1 4. 7, 4X , 720- 
7) 20- 

20- 
20- 
20 - 
20 - 
2 0 - 


0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0 87C 
0880 
0890 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
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r r. 


SIBFTC PTFFRI LUST, DECK 
SUBROUTINE PTFFRI 

C VARIABLES CUMPUTED IN PGEN4 (NUCLEAR POTENTIAL TERMS) 

COMMON /PC U/FL P T , UCRB ( 25 0) * UCIB<250), UCRM(250j, UCIM(250) f 
lUSRbt 2 50) , USIB (250) , USRM(250) , USI MI250) 

C.---.VAR IABLES COMPUTED IN PGEN4 (FORM FACTORS) 

CUM MON /PGP/FFCI(250) , FFC I M( 2 50) , FFCR(250), FFCRM1250), FFSK 
1, FF S I M ( 25 C ) , FFSR(250), FFSRM(250) 

C VARIABLES COMPUTED IN RHOTB 

COMMON /RH 1 /DR HU L , DRHG(249), IFIRST, i LAST , Rh0(250), RHOMAX 

Cv • • • -SC A TL e parameters 

COMMUN/PARA/RG, RO, V, A, VS, bS , BG , DUMMY ( 4 ) , NAME( 12 ) 

C OTHER SCATLE VARIABLES 

COMMUN/MI SC/ECM, ETA, ETA2, F KA Y , FKAYA, FKAYB, RHGBC, R HO BN , 
IRHUBNG, SIoMAO, SIGMA1, TEMP 
C SCATLE CONTROLS 

COMMON /CIMTK/KUUT, KSEND, KTRLC13)* KTRLTU3), KTRLXC13) 
DIMENSION KK(14), PT(1I), YPLUT(IUOO), XPLQT(IOOO) 
EQUIVALENT (UCRB ,XPLUT) , (USRB,YPLOT) 

PLOT FORM FACTORS 


19 

5 


•SET UP PLOT UF UCRB 
ThS TA = i.5G*V/ECM 
ANUM = FLPT*(FLPT * 
IF(FLPT) 7,o, 7 
BN - 8 • 


1 • ) 


21 
2 L 
21 
21 
21 
21 

250)21 
21 
21 
21- 
21 
21 
21- 
21- 
21- 
21- 
2 1- 
21 
21 
21- 


-0010 
-0020 
-0030 
-0040 
-0050 
-0060 
-0070 
-0030 
-0090 
-0100 
-0110 
-0120 
-0130 
-0140 
-0150 
-0160 
-0170 
-0180 
-0190 
-0200 
21— 0210 
21—0 220 
21 — 0230 
21—0240 
21—0250 


CN = a. 

21—0260 

UU TU S 

21—0270 

CN=0. 

21— 0280 

CN = CN + 1. 

21— C290 

DEN I=rtHOoN-CN*FKAYA 

21—0 300 

DEN 1 = UEN i*DEN 1 

21—0310 

UtN E=t<HUd N+CN*FKA YA 

21—0320 

DEN2=0ENE*DEN<t 

21 — 0330 

TERM = ANUi , 1 /DENI— ANU M/DE N2 

21—0340 

1 Ft TEKM-TESTA) 8, a, 19 

21—0350 

6N = AM INK 8..CN) 

21—0360 

TbSTo = PHUbN + bN*PK.AYA 

21—0370 

7 ESTC = RriUoN~CN*FK.AYA 

21—0380 

K.NT=0 

21—0 390 

DU 2 1=1, I LA S T 

21—0400 

I Ft Tt S Tt-KHU ( 1) ) 1,1 ,2 

21—0410 

IF ( KHJ ( 1 )— TE STb ) 3 , 3 *2 

21— 0420 

r cR M=A NUM / 1 KHU ( » 

21 — 0430 

NNT=K.N I+l 

21—0440 

UCRbt KNT ) =UCRd< I J + TERM+l. 

21—0450 

UCKbl KNT) =-UCKb (KNTJ 

21—0460 

YPL UT l <N T ) =RrtU 1 1 ) 

21—0470 

CUN TIN LE 

21—0480 

P T ( 1) = KNT 

21—0490 

K.UDt = 4 £ 

21—0500 

lXl=Ad JtuCRdtl) ) 

21—0510 

X 1= IX 1+1 

21—0520 

J X 1 = S IGNt XI , ULR b ( 1 ) ) 

21—0530 

IXL=AbS(UCKD(NNT) ) 

21—0540 

XL=IXL+1 

21—0550 

JXL=SIGN( XL.UURbtKNT) ) 

21—0560 

IXbEU=MlN Ut JX1 , JXL ) 

21—0570 

XbcU= ICO* lXdtb 

21—0580 

IDELX = lAb St JXL- JX1) 

21—0590 

DEL X= I DtL X* 2 

21—0600 

IKU 1= Y PLU T ( 1 ) 

21—0610 

RU l = 10C*l RUi 

21—0 620 
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IRUF = YPLG T< KNTI 
1 UEL Y = IRO F— IRU 1 
DEL Y= I DEL Y+ 1 
PT( 6 ) = 4 * 

PT( 7) = X8Eb 
PT( 8 ) = DEL X 
P T ( 9) = 4. 

PH 10 ) -=RO 1 
P T ( 11) =L)t L Y 

CALL SORT XY( UCR3 »YPLOT,KNT) 
wRI TL ( 6, 10G)FLPT 

CALL PLUTXY(UcRB,YPLUT, KGDE.PT) 
rfR 1 TE ( 6, 1C1) 

ICC FORMA T (33HPT PLUT OF UCRB VS RHG FLPT=F4.0) 

101 FukMAT(2HPL) 

C SET UP PLOT UF FF bR » FFSlt FFCR, FFC1 

TESTER HU 8N+7. 5* FKA YA 
CN3K=4 .*K HuuN 
CNSI— CNSK 

IF( nTRL< 9 ) ,tU- 2)CNSR=1- 
1F(KTRL(IU).EU.2)CNSI=1* 

KNT =0 

00 2 8 1— IriLAST 

iF(RH0(I)-TL8T)29,29,2b 
2 9 KNT=KNT+ 1 
2 8 CUN TIN LE 
NP T S = KM 
KNT =0 

00 12 1=1 f ILAST 

iFiRriJd ) — TL S T ) 11 ,11,12 

11 KNT=Kj\!I+1 
12=NP T S+KnT 
13=NP r 5 + 1 2 

1 4=NP TS+1 3 

XPLUTt KNT ) =CNSK*PFSR( 11 
XPLOT ( 12) -CN3i*FF SKI) 

XPLOT (13) =FFC R ( 1 ) 

XPLOT ( 14 )=FFC 1(1) 

YPLUT (KNT )=KHU(1) 

12 CUimTINLE 

KDE L = Y PL J T(NPTS) 

OELF = K UtrL + 1 
KM 1) =48 
KM 2) =4 
nM 3) =NP r 3 
PT( 1) =3. 

P T ( o) =2. 

P T( 7) = C. 

P T ( 5) = 23. 

P T ( 9 ) = 4 . 

P T l 10 ) =0 • 

P 1 ( 11) =0E LF 
*r i rt ( e, 2uo) 

CALL PLUFMYC XPLOT ,YPLUT,KK,PT) 

MR! Tb ( 6,201) 

Kt f URN 

2GC FORMA 1 ( ^4 HP T PLOT OF FFSR, FF SI , FFCR, AND FFCI VS RHU ) 
201 FUkMA T ( 42 HPL * FFSR + FFSl G FFCR X FFCI) 

END 


21— 0630 
21—0640 
21—0650 
21 — 0660 
21 — 0670 
21—0680 
21—0690 
21—0700 
21 — 0710 
21—0720 
21—0730 
21—0740 
21—0750 
21—0760 
21—0770 
21 — 0780 
21—0790 
21 — 0800 
21—0810 
21—0820 
21 — 0830 
21 — 0840 
21 — 0850 
21 — 0860 
21—0870 
21—0880 
21 — 0890 
21 — 0900 
21—0910 
21— 0920 
21—0930 
21—0940 
21—0950 
21 — 0960 
21—0970 
21 — 0980 
21-— 0990 
21—1000 
21—1010 
21— 1020 
21—1030 
21—1040 
21 — 1050 
21— 1060 
21 — 1070 
21 — 1080 
21 — 1090 
21— 1 100 
21—1110 
21—1120 
21—1130 
21 — 1140 
21—1150 
21— 1 160 
21—1170 
21—1180 
21—1190 
2 1—1200 
2 t— 1210 
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kIBFTC TRIPS lUST.GeCK 22 — 0010 

SUBROUTINE TRIPS 22 — 0020 

UUMPuTE, OUTPUT, AND PLOT TRIPLE SCATTERING PARAMETERS 22 — 0C30 

SCA1-4 DIMENSIONS AND COMMON 22 — 0040 

.....VARIABLE 3 CUMPDTEU IN PGEN4 (NUCLEAR POTENTIAL TERMS) 22 — 0050 

LUMMUN /PG U/FL P T , UCRb ( 2 5 0) • UCIo(250), UCRM(250), UCIM( 250) , 22 — 0060 

lUSK 3 ( 2 50 ) , DSI6 (2 d0) • USRM(250), USIM(250) 22 — 0070 

SCATLE IlPUT AND OUTPUT VARIABLES WHICH ARE FUNCTIONS OF THETA 22— 0080 

COMMuN/TH l/OPJLEX(150l , DSGMEX(150), JMAX, PULEX ( 150 ) . POL T H( 1 50 ) , 22 — 0090 
1 SgMAEX( 150) , SGMATH(150), THE TA ( 150) , THETA0(150) 22 — 0100 

COMMUN/lI NO/LMAX, LMaXM 22 — 0110 

L PAuE TilLINb INFORMATION 22 — 0120 

COHMUN/PTI/NUMRUN, TlTLE(li) 22 — 0130 

C SCATLE CONTROLS 22 — 0140 

COMMON /ln Tk/KULT, KSENU, KTRLU3), KTRLT ( 13) * KTRLX(13) 22 — 0150 

sCaITeKINo AMPLITUDES AND ADDITIONAL CROSS SECTIONS 22 — 0160 

COMMON /SAbS/Al ( 150) , Ak(150), 31 (150), BRU50), FCK150), FCR( 150) 22— 0170 

i, sumac ( iao) , siutemuso), sratiu(130) 22 — 0180 

C VARIABLES wHlCH ARE CALCULATED AS FUNCTIONS UF L 22 — 0190 

CUMMuN/VARl/CI 1 (51) , 012(51), CRK51), CR2(51), EXSGMK 51), 22—0200 

IE X SuMK ( 51 ) , F ( 52) * F3AR<91) , FP(51), G(52), GP1 51) 22 — 0210 

C ENERGY, MASS, AND CHARuE INPUT VALUES 22 — 0220 

COMMON /EMC V/ELAB, FMB , FMI, FPU, RC , LL 22 — 0230 

DIMENSION PT( 1 1 ) , Kl 14) ,XSAV(150) ,YPL0T(150) 22— 0240 

LddIVALENlE (UCRB,XSAV), (USKB,YPLOD 22 — 0250 

IP(KTKLX( ID- 2) 355,309,355 22— 0260 

309 CALL SiUP 22 — 0270 

WKlTEf 6,310) 22 — 0280 

31 C FdRMA T ( 1HU, t>X, 5H THETA , 13X ,3HF CR , 17 X , 3HFC1 , 16 X , bH AR-FCR , 14X , 22 — 0290 

16HA1-CUI, 14X.5HSGMAC) 22 — 0300 

DO 32 5 J = 1 , JMA X 22 — 0310 

XSAV( J )=«R( J)-FCR( JJ 22 — 0320 

YPLUT ( J) =AI ( J )— FC I ( J) 22 — 0330 

C UUTPuT Real and IMAG PARTS OF F, COULOMB SCATTERING AMPLITUDE 22 — 0340 

32 5 WRl Te ( 6, 3 20) THE TAD ( J) ,FCR (J) ,FCI ( J) , XSAV ( J) , YPLOT ( J ) , S GMAC( J ) 22 — 0 350 

32 C FORMA T ( 1H , G 1 5. 3 , 5G2 0. 8 ) 22 — 0360 

CALL SKIP 22 — 0370 

•WRl TE I 6,330) 22 — 0380 

33 0 FORMA T ( 1H u * bX » 5H THE TA ,13X ,4HCAMP ,16X ,4HCPH A , 16X , 4H NAMP , 16X , 22 — 03 90 

14HNPMA ,9X , 1HL , 6 X , bri SGc UUL ) 22 — 0400 

C CUMPUTE And OUTPUT MAGNITUDES OF F, A-F 22 — 0410 

DO 335 J = 1 , JMA X 22 — 0420 

CAMP=SURT (FcR(J)*FCK(J)+FCi T J)*FCI ( J) ) 22 — 0430 

CP HA = A TAN 2 ( FC I ( J) »FCR ( J) ) 22 — 0440 

ANAMP = iUK T(XSAV(J)*XSAV(JD-YPLOT(J) *YPLGT(J) ) 22 — 0450 

AnP HA = ATA N 2 ( YPLOT (J) , X SA V ( J ) ) 22—0460 

1F( J-LMAX) 332,332,331 22 — 0470 

321 WRI Te ( 6, 340J1HE TAD(J) , CAMP ,CPHA, ANAMP, ANPHA 22 — 0480 

GO TO 335 22 — 0490 

332 SGCOUL = . 5*ATAN2 (E XSGMI ( J) ,EXSGMR(J)) 22 — 0500 

WRITE! 6,340) THE TAD( J) ,C AMP , CPH A , AN A MP , ANPH A, J , S GCOUL 22—0510 

34C FOkMa T ( 1H ,G15.3,4G20.8,I3,G20.8) 22 — 0520 

335 CON TIN LE 22 — 0530 

I F< LM A X-J MAX) 3 5 5,355,352 22 — 0540 

352 L IN =J M AX+ 1 22 — 0550 

DU 353 L=EIN,LMAX 22 — 0560 

SGLUUL = . 5*A TAN2 ( E XSGM1 (L) ,£XSGMK(L) ) 22 — 0570 

353 WK ITE ( £,354) L.SGCUUL 22—0580 

354 FORMA T(lri , 95X, I3,G20. 8) 22 — 0590 

355 WK I TE ( 6, 1000) NUMRUN, TITLE 22 — 0600 

100C FORMAT ( 11H1RUN NUMB ERI 3 , l OX , 1 3 A6 / / / 8 X .5HTHET A15X , 6HT ANBET 22 — 0610 
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1 15X*4HBE TA12X,10H TH ETA , LABI 4X , 3HRGT 18X * 3H-R # ) 

DO 5 J = 1 * J i*1A X 
YPLUTC J)=THETAU( J) 

A SO = AR(J)*AR(J) + A1 ( J ) *AI ( J ) 

6S0 = BR<J)*BRtJ) + 6i(J)*8i(JI 

TANBET=-2**IAI ( J ) * 3R ( J ) - AR { J) *61 ( J ) ) / C AS C-BS Q ) 

C CALCULATE LAB ANGLE IN TERMS GF TAN AND CQS 

T N T HG = SINCTHETAC J) ) / CCQS ( THbTA( J) ) + F MI/F MB) 

SC T HQ = SOKTCl. + TNTHU*TNTHG) 

IF C TN THG)20»21*21 
2C C S I HG = -1. /SC THO 
GU TO 22 

21 C S T HG = l./SCTHO 

C COMPUTE ROTATION OF POLARIZATION 

22 XXX = ( ASU—B SU ) / SGMA TH ( J) 

ROT = XXX*CSTHU* C 1.+ TANBE T* TNTHO) 

CC=XXX *C S THO* C TANBb T- TNTHUI 
BETA= ATAN(TANBET) 

I F ( TANBET )30, 31*31 
3 C BETA = 180.+6ETA/. 01 74532 92 32 
GO TO 32 

31 BE T A = BETA/. 01745329252 

32 THO = A TAN ( TN THO ) 

IF C TN THO) 23*24* 24 

23 THG = 180. +THO/. 01 745329252 
GO TO i 5 

24 T HU = THO/. 01745329252 
2 5 CON TIN LE 

C OUTPUT TRIPLE SCATTERING PARAMETERS 

*KITE (6* 1001) THE TAD ( J) * TANB ET , BE T A , THO , ROT * CC 
XSAVC J )=-CC 
JJ=J+JMAX 
X SA V ( J J ) =— HUT 
5 CONTINUE 

C SET UP FOR PLOT OF RUT AND R-PRIME 

19 K I 1 ) = 4 £ 

K { 2 ) = 2 
M 3 ) = J MAX 
PT( 11 = 3. 

PT< 6) =4. 

PT( 7) =-100. 

P T ( 8 ) = 4 • 

PTC 9) =6. 

PTC 10)=0. 

PTC 1 1 ) =2. 

WRI TE C 6* 100) 

CALL PLOTMYCXSAV, YPLOT ,K*PT) 

WR I TE (6, 101) 

IOC FORMA T C 23HPT PLOT OF -R ■ AND ROT) 

101 FORMA T C 27HPL * -R« + ROT) 

1001 FORMA T C 6G 20. 8 ) 

RETURN 

END 


22— 0620 
22—0630 
22—0640 
22— 0650 
22 — 0660 
22—0670 
22—0680 
22—0690 
22—0700 
22— 0710 
22— 0720 
22— 0 730 
22—0740 
22—0 750 
22—0 760 
22—0770 
22—0780 
22— 0790 
22— 0800 
22— 0810 
22— 0820 
22 — 0830 
22— 0840 
22— 0850 
22 — 0860 
22 — 0870 
22—0880 
22 — 0890 
22— 0900 
22— 0910 
22 — 0920 
22— 0930 
22— 0940 
22—0950 
22 — 0960 
22— 0970 
22—0980 
22— 0990 
22 — 1000 
22—1010 
22— 1020 
22 — 1030 
22— 1040 
22 — 1050 
22 — 1060 
22— 1070 
22 — 1080 
22—1090 
22— 1100 
22—1110 
22—1120 
22— 1130 
22—1140 


$ 1 6FTC PTETDL LOST, DECK 23 — 0010 

SUBROUTINE PTETDL 23 — 0020 

C VARIABLES COMPUTED IN PGEN4 (NUCLEAR POTENTIAL TERMS) 23 — 0030 

COMMON /PG U/FLP T # UCRB ( 2 5 01 * UCIBC250), UCRMC250) * UCIMC250), 23 — 0040 
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n r 


1U SRB ( 2 50 ) y USIB(250), USKM ( 2 50) , USIM250) 

CUM MON /LI NO/LMA X # VLMAXM 

C VARIABLES FO BE PLOTTED IN PTETDL 

COMMJN/PTPL/AETAi ( 51) , AETA2(51>, OELRIC51)* 0ELR2(51> 
DIMENSION KK(14), PT(ii) 

DIMENSION XPLGT1408), YPLOT(408) 
fcUUlVALeiMCE <UCR8,XPLUT) , <USRB,YPLUT> 

.•PLOTS ETA1,EIA2 ,DELP, OELM 
..SET OP AoSCISSA FOR BOTH PLOTS 

1 UU 2 1=1. 5 
IH l L M A X— 1 ) - 1 0* I ) 3,3,2 

2 CUN TIN LE 

3 I F ( I- 3)5, 4,3 

4 1 = 4 

8 P T< 9) = 5.0 
PTC JLU)=0.0 
P T ( 11) = I 
YPLOTt i) = 0. 

DO 6 I =2 , LMA X 

6 YPLOTC I) = YPLOTi I-l)+i. 0 
C.....SET UP PLOT OF ETA 

7 KM 1 ) = 4 8 
KM 2) = 2 

KK ( 3 ) = LMA X 

PTC 1 ) =3 • 0 

PTC 6>=4.0 

PTC 7) =-100.0 

PTC 8 ) = 2 • 0 

DO 8 1=1, LMA X 

XPLUTC I)=-A£TAU[| 

IP = I +L MAX 

6 XPLOTC IP ) =— AE TA2 ( I ) 

WRITE (6,100) 

CALL PLOTMYCXPLUT ,YPLOT,KK,PT) 

WRITE (6,101) 

C SET UP PLOT OF DELTA, DELTA-PI, UELTA+PI , DELTA+2PI 

9 KK ( 1) =48 
KK ( 2) = 2 

KK ( 3 ) = 4*L MAX 
P T ( 11 = 2.0 
P T ( 6) =5.0 
P T ( 7) =-100.0 
P T ( 8) =1.0 

C ... ..COMPUTE NEGATIVE VALUES TO BE PLOTTED 
DU 10 J= 1 , 4 
IN = ( J— 1 ) * L M A X 
IND=( J + 3 ) *LMA X 
CUN =FL0AT ( J— 2)*PI 
DO 10 1 = 1, LMA X 
1 1= IN + I 

XPLOTC II )=-(DELRi(I ) + CON) 

IP= IN D +1 

XPLUT ( IP ) =— ( DE LR2 ( 1 )+CGN) 

10 YPL OT ( II ) = YPLO T ( I ) 

WRITE (6,102) 

CALL PLUTMYC XPLOT , YP LO T , KK , P T ) 

WRITE (6,103) 

11 RETURN 

IOC FORMA T ( 29HP T PLOT OF E TA1 AND ETA2 VS L) 

10 1 FORMA T(20HPL * E TA 1 ♦ E TA2 ) 

102 FURMA T { 3 1HPT PLOT OF DELR1 AND 0ELR2 VS L) 

103 FORM A T ( 20HPL * DELHI + DELR2) 

END 


23—0050 

23 — 0060 

23—0070 

23—0080 

23 — 0090 

23—0100 

23—0110 

23— 0120 

23—0130 

23—0150 

23—0160 

23—0170 

23—0180 

23—0190 

23— 0200 

23— 0210 

23— 0220 

23— 0230 

23— 0240 

23—0250 

23— 0260 

23—0270 

23—0280 

23— 0290 

23—0300 

23—0 310 

23— 0320 

23—0330 

23 — 0340 

23—0350 

23—0360 

23—0370 

23—0380 

23— C390 

23 — 0400 

23—0410 

23—0420 

23—0430 

23—0440 

23 — 0450 

23—0460 

23—0470 

23—0480 

23—0490 

23 — 0500 

23—0510 

23— 0520 

23—0530 

23—0 540 

23 — 0550 

23—0 560 

23—0570 

23—0580 

23—0590 

23—0600 

23—0610 

23— 0620 

23—0630 

23—0640 

23 — 0650 

23—0660 

23—0670 

23—0680 
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$ I BF I C PTSuAI LUST f DEC K 
SUBKUU I I-M t: PTSCAT 

C • . . • -SCA TL e INPUT and output variables which are functions of theta 

COMMON /TH i /UPULEXU50) , DSGMEX<150), JMAX, POLEX(15G), POLTH(I 
1SGM At X ( 150 ) » SGMA TH ( 1 50) * THE TA ( 150 ) « THETA0(150) 

C SCaTLE CONTROLS 

CUM MON /CN TR/KOUT » KSEND, KTKH13), KTRLT(li), KT RLX ( 13 ) 

C SCATTERING AMPLI TUDES AND ADDITIONAL CROSS SECTIONS 

COMMON /SACS/AI (150) , AR ( 1 50 ) , BI1150), BR<150>, FCH150), FCR( 
1, SGMACU5C), SIGTEMI 1 50) f 5RATI 0(15 0) 

C CHI SOLARES, NORMALIZATION CONSTANT, AND SIGMA REACTION 

COMMON /CSO/CHiZST , CH12PT, CHI2T, SUMS 116), CH12S(150)» 
1CH12PI15U), CHI2U50), ENORM, SG PR TH , SNORM, X NORM , NP , C SNRM, NCSN 

0 I MEN S I UN P T 1 1 1 ) , KM14), PSAVC6) 

DIMENSION XPLGTU50), YPL0TI150) 

EQUIVALENCE (AR,XPLUT), I BR , Y PLOT) 

DIMENSION FMTA(lO), FMTA1IB), F MTA2 1 10 ) , F MT d ( 6 ) , FMTB1I5), 

1FM I B 2 ( E ) 

DATA FMTA 1( 1 ) / 4 8H I43HPT PLUT GF SGMAEX AND SGMATH VS THETA ( DE 
DATA FMTA2I 1)/56H(51HPT PLOT OF { S NGRM*SGM AEX ) AND SGMATH VS T 

1 ( DtG ) )/ 

DATA FMT3 i< 1 ) /28H (23HPL * SGMAEX + SGMATH)/ 

DATA FMT8 2( 1) /36H (31HPL * ( fc NCR M*SGM AE X ) + SGMATH)/ 

... • .K TR L ( 4 )=0 NO PLUT 

K T K L ( 4 ) = 1 PLUT OF PULEX AND PULTH VS THtT AO 

. .. ..KTKL( 4 ) = 2 PLUT UF SGMAEX AND SGMATH VS THETAU 

KTRU4) = 3 PLUT POLAR l ZAT I ONS AND CROSS SECTIONS 

MRLXl S).Nt.G IF CRUSS StCTIGNS ARL PLOTTED, ALSO PLOT SGMAEX 

....% AND SGMATH VS THETAD 

IF(KTRL(4).tQ.C)GQ 10 48 

C St T UP YPLUT FOR ALL PLOTS 

TMAX=0. 

UU 7 J-l.JMAX 

IF l THt IAO ( J).GT.TMAX) TMAX = THE TAD1J) 

/ YPLUT ( J)= IHt TAD ( J ) 

KM i) = 48 
KK ( 2 ) — 2 
KK( 3) = JMA X 
p T( 1) = 3. 

P T ( 9) = ‘. 

P T ( 10)=G. 

1 = i 

13 A i = I 

IF( TMAX.Lt .50.*AI )GU TU 18 
1=1 + 1 
Gu TO 13 
18 P T( 11 ) =5* I 

lFlKTRLi A ) .t U . 2 ) uU TO 28 

PLUT PGLEX AND PULTH VS THETAD 

P T ( b) = 1 m 
P H 7)=-10C. 

P T ( 8) =4. 

DU 21 J = 1 , JMA X 
XPLUI ( J ) =— POL EX ( J ) 

J J = J + J MAX 

21 XPLUTt JJ) =-PULTH( J) 
wK 1 TE ( E, 1 00) 

1U0 FURMATI41HPT PLOT UF PULEX AND PCL IH VS THETA (DEG)) 

CALL PLUTMYI XPLUT , YPLQT,KK,PT) 

WRITE ( E, 101) 

101 FURMA T ( 22HPL * PGLtX + PULTH) 

IF(KTRL(4).Ew.i)G0 TU 48 


24 — 0010 
24— 0020 
24 — 0 C30 
50 )• 24 — 0040 
24 — 0050 
24 — 0060 
24 — 0070 
24 — 0080 
150)24—0090 
24 — 0100 
24 — 0110 
24—0120 
24 — 0130 
24 — 0140 
24 — 0150 
24 — 0160 
24 — 0170 
24 — 0180 
G) )/24— 0190 
HETA24 — 0200 
24 — 0210 
24 — 0220 
24 — 0230 
24 — 0240 
24—0250 
24 — 0260 
24— 0270 
* ENO 24 — 0 280 
24 — 0290 
24 — 0300 
24—0310 
24— 0320 
24 — 0330 
24 — 0340 
24 — 0350 
24—0360 
24 — 0370 
v 24 — 0380 
24—0390 
24—0400 
24 — 0410 
24 — 0420 
24 — 0430 
24 — 0440 
24 — 0450 
24 — 0460 
24 — 0470 
24 — 0480 
24 — 0490 
24—0500 
24 — 0510 
24 — 0520 
24 — 0530 
24 — 0540 
24—0550 
24 — 0560 
24—0570 
24 — 0580 
24—0590 
24—0600 
24 — 0610 
24 — 0620 
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C PLOT SGMAEX AND SGMATH VS THE IAD 

24—0630 

28 XMiN=l.E10 

24—0640 

XMAX=i.E-10 

24 — 0650 

00 31 J=1 » JMA X 

24—0660 

XPLOT ( J ) =— ALUG 1 Cl SGMAEXI J) 1 

24 — 0670 

J J = J + J MAX 

24—0680 

XPcUTI JJ ) =— ALUGIOI SUMATHI J) ) 

24 — 0690 

IFt XPLOTt J).LT.XMIN)XMIN=XPLUTI Jl 

24 — 0700 

IF ( XPL UTt JJ) .LT.XM1NJ XM1 N=XPLGT ( J J) 

24 — 0710 

IFt XPLUK J).GT.XMAX)XMAX=XPLOT( J) 

24 — 0720 

IFt XPLUTt JJJ.GT.XMAX) XMAX=X PLCT I JJ) 

24—0730 

31 CON TIN IE 

24 — 0740 

KQQ = 1 

24—0750 

UU 33 1 = 1,8 

24 — 0760 

FMTAC I )=FMTAi< I ) 

24—0770 

I F ( i .oT.5 )GU TU 33 

24 — 0780 

PMTbC 1 )=FMToi(I ) 

24—0 790 

33 ccmriiMbt 

24 — 0800 

35 M IN =XM IN 

24—0810 

Mli\j=M IN-i 

24—0820 

MAX=xMAX 

24—0830 

MAX=M A X + l 

24—0840 

i F ( MAX-MI N .L T. 4) GO TU 36 

24 — 0850 

PTC 6)=f . 

24—0860 

PTC 7) =10* MIN 

24—0870 

PTC 8 ) = 1 * 

24 — 0880 

GU TO 38 

24 — 0890 

36 PTC 0) = 4. 

24—0900 

P T t 7)=10G*M1N 

24 — 0910 

PTC 8) = 5. 

24 — 0920 

38 WK I T£( 6.PMTA ) 

24 — 0530 

CALL PLOTMYI XPLUT, YPLUT,KK,PT) 

24—0 940 

wR 1 Tfct £,FMIB ) 

24 — 0550 

IF t KUO .EU .2) GO TO 46 

24 — 0960 

I F ( nTRLXI 5) .Eg. 0)GU TU 48 

24—0 570 

C PLUT SNURM * SGMAtX AND SGMATH VS THfcTAU 

24 — 0980 

UU 43 J = L » J HA X 

24 — 0590 

XPLUK J)=-AL0G1CI SNOKM*SuMAEXIJ) ) 

24— 1000 

I F ( XPL 0T( J).LT.XMIN)XMIN=XPLUTt J) 

24 — 1010 

IFt XPL UK J ) .gT.XMAX) XMAX=XPLGT( J) 

24 — 1020 

J J=J+ JMAX 

24—10 30 

XPLUT ( JJ) =— ALUG 1 0( SGMATHt J) ) 

24 — 1040 

43 CUN T I N CL 

24 — 1050 

UU 45 1=1,10 

24—1060 

FMIAl I ) =F M TA2 ( I ) 

24—1070 

IFt l .0 1.6) GU TU 45 

24 — 1080 

FMTdt I )=FMTd2 (I ) 

24—1090 

45 CUnTINCE 

24—1100 

isUU =2 

24—1110 

GU ru 35 

24 — 1120 

46 RETURN 

24 — 1130 

tNO 

24—1140 

■ I 6F TC AKGN LUST, DECK 

25—0010 

SUdRUCTlNE ARGN 

25 — 0020 

VARIABLE METkIC MINIMIZATION (MCNITUR ADAPTATION) 

2 5—0 030 

VAkIasLcS USED IN AKGUNNE SEARCH PROGRAM 

25 — 0040 

CUKMu N /AijN/C ( 12,10) , DELTA , E, EL, FAC, FB, FO, GBI 12) , GS , GSB, 25 — 0050 
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1GSP * G£S, bTP, GTT. H ( 12 f 121 , IT, KSTEP , LV, LS , 

Mt Mi, MS , N, Nc, NS, NSS*i, NSSfc2, Qt RS , S<12), SL, T ( 12 1 , TO, 
3VA , VF, VFP , Vb ( 1 2) , VGP ( 12 ) , VP, X(12), XP(12), l 
C SCATlE PAKAME TERS 

CUMMuN/PaRA/RG, RO, V, *i. A, VS, WS , BG, DUMMY ( 4 ) , NAME( 12 ) 

G AUXILIARY SEARCH VARIABLES 

bUMMUN VA^V/UfcLi 121 , ID(12), 1IN, KULMAX, LABEL ( 13) , NHP, NMLR, 
1NPGT, NPdP, PC T 

C.*.*.Chi SOCARES, NORMAL I 2 A 11 CN CC NSTAN T , AND SIGMA REACTION 
C JMMUN /Csw /CHI 2ST , CHI2PT, CM 1 2 T , SUMS ( 16 ) , CH12SC150), 

1C H l 2P ( ISO I , GHI 2(150) , ENORM, SG*RTH,SNURM,X NORM, NP, CSNRM, NCSN 
UiMEN SiUN StRi 12) 

EgU IVALlNlE (RG, SLR) 

UlMLNoiUN CHIgSI 19) 
tgUlVALtiVCE 1 0 H 1 U S( 1 ) , CH 1 2 S T ) 

DU 70S I = 1 , N 
J = II) ( l ) 

7G5 XI I ) = SEK ( J) 

1C1 M S= G 

ICS *R I IE 16, 5) 

ill wkl Tfc < 6,6 )N,R STEP, E , VP , DELTA 

rfRlTEU,7) NHP, NMLR, NPGT, PCT 
7 FUKHaU 5H JNHP -12, 5X,5HNMLR=I2 , 5 X ,5 HNPCT= I 2 , 5X , 4HPC T = F7 . 4 ) 

CALL SUU1 

2 8 6 C IF (NC ) 1 13, 113, 2 86l 

2861 rtRI Tt (6, 2Ui 3 ) 

2862 UU 2662 J -1,iMC 

2863 rtKlTE (6, 2014) ( C U , J) , I =1 ,N) 

11J wRITt (6,6) 

114 DU 115 1 = 1 , N 

115 WKIIL (6, 9 ) ( H ( 1 , J ) ,J=1,N) 

117 GALL PCN(N,VG(1) ,VF,X(1) ) 

M 1=0 

1 IN = i 

118 LV = 1 
118 5 11 = 0 

IIS w K 1 T t (6, 14) I T,MS, VF 
CALL SOur 
12 C *R I TE (6, A) 

1 2 C l IF (NG ) 121,121 ,1202 
1 2 C 2 DU 12 C S J 1 = 1, NC 

1203 CALL MATMPY(N,N,H(1,1) ,C(i ,Ji) ,T(1) ) 

12 0 A CALL MATMPY< 1 , N , T ( 1 ) ,C(1 ,J1) , TU) 

22C4 IF (Mi-1) 1206, 1206, 1205 

1205 IF (TO-E) 1209, 1209, 1206 

1206 DU 12 C 8 I = 1 , N 
120 7 UU 12 C £ J = 1 , N 

1208 H< l,J )=H( i,J)-T(l )*T( J) /TO 

1209 CONTINUE 
12 1 CALL READY 

122 LV = LV 

123 oG TU ( 139,1 59,137,126) ,LV 
12 A LV = 2 

125 GU TU 121 


25 — 0060 
25 — 0070 
25— 0C80 
25 — 0090 
25 — 0100 
25—0110 
25—0120 
25—0130 
25—0140 
25—0150 
25 — 0160 
25—0170 
25—0180 
25 — 0190 
25 — 0200 
25—0210 
25— 0220 
25— 0230 
25— 0 240 
25— 0250 
25 — 0260 
25—0270 
25 — 0280 
25— 0290 
25—0300 
25 — 0310 
25— 0320 
25 — 0330 
25 — 0340 
25—0350 
25 — 0360 
25—0370 
25—0380 
25 — 0390 
25 — 0400 
2 5—0410 
25— 0420 
25—0430 
25 — 0440 
25 — 0450 
25 — 0460 
25—0470 
25 — 0480 
25 — 0490 
25 — 0500 
25—0510 
25— 0520 
25 — 0530 
25 — 0540 
25—0550 
25—0560 
25 — 0570 
25—0580 
25 — 0590 


let CALl A IM 
le 7 L V = L V 

128 GU TU ( 129, 135,137) ,LV 

129 CALL P IRE 

1F( Mi* GE -NMLR )GU TU 1395 

130 LV = LV 

131 bU TU { 135,132,126) ,LV 

132 LV = 1 


25 — 0600 
25—0610 
25 — 0620 
25 — 0630 
25—0640 
25—0650 
25 — 0660 
25 — 0670 
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n r 


133 

CALL ORE .> 3 ! * 142 ) 

25— 0680 

1335 

LV = LV 

25 — 0690 

134 

GU TU 1124, 156), LV 

25 — 0700 

135 

L V - 2 

25 — 0710 

136 

GU TU 133 

25— 0720 

137 

LV - 3 

25—0730 

138 

GU TO 133 

25—0740 

15 5 

LV = 4 

25—0750 

161 

UU 10 133 

2 5—0 760 

139 

IE(NSSH.LT. DCALL SUUT 

25—0770 

1395 

WRITE! 6,d) 

25— 0780 


DU 1096 I =1,N 

25 — 0790 

109 6 

wR I Te 1 6 , 9 ) (Hll,J),J = l,N) 

25 — 0800 


CALL stuff 

25—0810 

14 C 

L V = L V 

2 5—0820 

141 

GU TO (117, 142), LV 

25 — 0830 

14^ 

*RITE 16, 10) 

25 — 0840 

14 2 

wRl TE (t>, 11) 

25 — 0850 

14 4 

DU iAD 1=1, N 

2 5—0 860 

145 

WR I Tt (6, 5J <rt (I , JJ , J = 1 , Ni 

25— 0870 

146 

rtklTh (6, 13)DELTA,VF,GS 

2 5—0 880 


CALL SQUT 

25 — 0890 


DO 14 8 rK = 1, NC SN 

25 — 0900 

148 

CHIOS 1 KK) -trl 1 U S ( KK) /C SNKM 

25 — 0910 


wR 1 TE 1 6, 1 5 ) CSNKM, CHI2T, CHI2ST, CHI 2 PT 

25 — 0920 

15 

FURMA T 1 1HK, 13X,2 0HSUM UF CHI SQUARES /F5. 0 ,15X , 6HCHI2T = G13 .5, 

25—0930 


15X, 7HcHI 2ST=G13. 5 ,5X,7HCH12PT=ul3# 3) 

CALL SO cF 

15C CALL FCNl N, VG< i) , VF ,X(1) ) 

156 CONTINUE 
RfcTU RN 

2C13 FURMa r ( 12HUC JNSTRAINT3) 

2014 FUKMAU3HU 1P8E14.5) 

FUKMAT120H0- - - - 

5 FUKMA T { 29 HO VAR i ABLE METRIC 

6 FORMAT! 3H0N = 1 2, 4H K=I2,4H 

8 FORMA 1 1 2H OH I 

9 FORMA r (1H 0 IP BE 14. 5/ ( 1H Ofcffc 14. 5 ) ) 

10 FUKMA T( 13HOFINAL VALUES) 

11 FORMA r ( 13H0ERRGR MATRIX) 

13 FUKMA T ( 7H QUEL TA = 1PE 14 - 5 »4H F=E14.5,5H GS=E14.5) 

14 FUKMA T ( 4H Cl T 14, 7H STEP 14, 4H F=1PE14.5) 

END 


) 

MI M MI /ATI ONI 
£ = 1 PEI 4* 5 , 4H 


P=E14.5,8H DELT A=E14 


25—0940 
25—0950 
25 — 0960 
25 — 0970 
25—0980 
25—0990 
25—1000 
25—1010 
25 — 1020 
► 5 ) 25—1030 
2 5—1040 
25—1050 
2 5—1060 
25 — 1070 
25— 1C80 
25 — 1090 
25—1100 


SiEFTC SUUTT LUST, DECK 

SUBROUTINE SUUI 

.SEARCH OUTPUT UF PARAMETERS DERIVATIVES ANO CHI SQUARES 
.VARIABLES USED IN ARGQNNE SEARCH PROGRAM 

C uM MU N/AGN/C! 12»10) , DELTA, E, EL, FAC, F8, FO, GB ( 1 2 ) , GS , GS B , 
1GSP , GSS, GTP , GTT. H(12,12), IT, KSTEP, LV, LS , 

2M , Ml, MS, N t NC, NS, NSShl, NSSW2, Q , RS , S<12), SL, T ( 12 ) , TO, 
3VA , VF, VFP, VG ( 1 2) , VGPU2), VP, XU2>, XPT12), Z 

C CHI SOUARES, NORMAL 1Z A T I ON CONSTANT, AND SIGMA REACTION 

COMMON /CSU/CHI 2 ST, CHI2PT, CHI2T, SUMS 1 16) , CHI2SC150), 

1C H 1 2P ( 150 ) , C H l 2 1 i 50) , ENORM, SG MR TH ,SNORM ,XNORM, NP, CS NRM, NCSN 

C AUXILIARY SEARCH VARIABLES 

COMMON /AS V/UEL ( 12 ) , ID(12), TIN, KDLMAX, LABEL ( 13 ) , NHP, NMLR, 

IN PC T, NPCTP, PC T 
DIMENSION CSIDI2) 

DATA (CSID{ I i ,1=1 ,2)/5HSIGMA*5H POL / 

KUD = I 


26—0010 
26—0020 
26 — 0030 
26—0040 
26 — 0050 
26 — 0060 
26—0070 
26—0080 
26—0090 
26 — 0100 
26—0110 
26— 0120 
26 — 0130 
26— 014U 
26—0150 
26—0160 
26— 0170 
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3 I A= 1 

IB-M 1 N C( N ,9) 

8 *RiTt(e,JLC) I LABEL! I ) , 1=1 A, IB) 

10 F JkM A T ( 7X , A D , B(9X,A5) ) 

wRITE(E,2G) <X(l) ,1=1 A,IB) 

2C FuKMmTI3HJX=1P9G14.5) 

IFI NUJ .EU- 2 ) aRI TE (6 , JO) I VG I I ) , l =1 A , I 8 ) 

30 FORMA T ( 3H Jb = lP 9b 14. 6 ) 

IFI ib .EW.N )oU 10 23 
1 A = 10 
I B=N 
bU TO 8 

23 IF! KUO.EU.l)bU TU 33 

WK I TE I 6 , 4 C ) tNURM, SGMRTH, bH 1 2 T « CHI2ST, CHI2PT 
40 FukMATI aHJ,ohENURM=G13.5,5x,11HSIGMaR(TH)=G13.5,5X,6HCH12T = G13.5, 
15 a f 7H^HI2ST=G13.5,5X, 7HCH I 2 P I =G 1 3. 5) 

ENTRY SU OF 

bO ru I 47 ,45,43) ,KDLMAX 
4 3 *R 1 IE t t t 50) 

5C FORMAT! 1HJ,20X,4HSUMF , 2 1 X , 4h S LMM ,2 1 X ,4 HSU MR ) 

*RiTt(fc, 60 ) CSID(l), (SUMS(KK) ,KK=9,13,2) 
t C FukMA Tt 1H JA5 , 3G25. 8) 

«R l TE ( 6,60) C S 1 D I 2 ) ? I SUMSIKK) ,KK=10,14,2) 

Gu TU 47 
45 wk I Tt I 6,70 

7 0 FORMAT I IHJ , 1*X, 4HSUM1 , 11 X ,4HSLM2 , 1 1 X , 4HSUM3 , liX ,4HSUM4, 11X , 

14hb UM F , liX,4HSUMM f liX»4HS0MRf 10X,5riSUM34l 
wR I Tt l 6 , 8 0 ) C S 10 ( 1 ) 9 ( SUM S(KK) , K K=i 9 1 5 t 2 i 

bC FuRMA I ( lrIJAb, 8G13.5) 

rtKlTMttoCJ CSID12), I SUMS I K K ) , K K=2 9 1 6 ,2 ) 

4 7 CUrtTINLt 

5 3 K 1 1 UK N 

ENTRY SuUT 
RU L) = 2 
GO TO 3 
END 


26—0180 
26 — 0190 
26 — 0200 
26— 0210 
26— 0220 
26— 0230 
26—0240 
26 — 0250 
26 — 0260 
26— 0 270 
26 — 0280 
26— 0290 
26 — 0300 
26 — 0310 
26—0320 
26 — 0330 
26—0 340 
26—0350 
26 — 0360 
26 — 0370 
26—0 3 80 
26 — 0390 
26—0400 
26 — 0410 
26— 0420 
26—0430 
26 — 0440 
26—0450 
26—0460 
26 — 0470 
26 — 0480 
26 — 0490 
26—0500 
26 — 0510 
26—0520 
26—0 530 


$ 1 8 F T C READY LUST, DECK 

SUBROUTINE READY 

G RtADY (MUNITJR ADAPTATION) 

u VAK i A B LE :> USED IN AR^ONNE SEARCH PROGRAM 

CUMMON /AGN/Cl 12,10) , DELTA, E, EL, FAC, Fb, FQ, GB(12), GS , GSB, 
1GSP, GSS, G TP , GTT, rt(12»12)« IT, KSTEP, LV, LS , 

2M, Ml, MS, N, NC, NS, NSSM, NSSW2, Q , RS , S(12), SL, T(12>, TO, 
3VA, VF, VFP, VG (12), VG P ( 12 ) , VP, X(12), XPU2), Z 
C .... .AUXIL IARY SEARCH VARIABLES 

COMMON / AS V /DEL ( 12 ) , ID(12), IIN, KDLMAX, LAB EL ( 13 ) , NHP, NMLR, 
1NPCT, NPl,TP, TCT 
DIMEN SION FE X I 12) 

L V = L V 


GO TO (*00,201) , L V 
2CC I T= 1 

2C1 CALL MATMPY ( N ,N , H (1 , 1 ) , VG ( 1 ) , S ( D) 
20* DO 203 1=1, N 

203 S( I )=— S( I ) 

204 M = 1 

205 CALL MATMPY ( M , N , S ( 1 ) , VG ( 1 ) ,G S) 

2C6 IF( GS+E)207,227,227 

207 IFI IT.GT.NPCTP)GU TO 246 
FEXI IT ) = VF 

IFI IT •Ey*NPCTP)GQ TO 249 

GO TU 255 


27 — 0010 
27— 0020 
27 — 0030 
27 — 0040 
27 — 0050 
27—0060 
27 — 0070 
27—0080 
27 — 0090 
27 — 0100 
27—0110 
27 — 0120 
27—0130 
27—0140 
27—0150 
27—0160 
27—0170 
27—0180 
27—0190 
27— 0200 
27— 0210 
27 — 0220 
27 — 0230 
27 — 0240 
27—0250 
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n o 


246 FEX(NPCT+2) = VF 

DO 24 8 KK = 1, NPC TP 

248 FEXIKK )=FEX(KK+1) 

249 TEST=.C1*PCT*VF 

IF(FEX< i)-FEX(NPCTP).GT. TEST) GO TO 255 
HKI IE( 6,2) NPC T , PC T 

2 FORMAT (33HJTHE CHANGE IN F DURING THE LAST 12, 
12 5h I T ERA T ION S IS LESS THAN F7-4,9H PER CENT) 

GO TO 227 

25 5 TP 1 = -2.0*C VF/GS) 

208 EL =AM INK 2.0, TPi) 

20 9 SL =— G S 

210 DU 211 1=1, N 

211 XP< 1)=X( l )ffcL*S(I) 

213 CALL FCN< N,VGP(1) , VFP , XP ( 1 ) ) 

214 M = 1 

215 CALL MATMPY ( M ,N , S( 1 ) , VGP < 1 ) ,GSP ) 

216 IF! GSP )21 7,229,229 

217 IF <VFP-VF) 218,229,229 

218 MR I IE (6, 1) 

231 Fb = VFP 

232 DU 234 1=1, N 

233 Gb( I ) = VGP ( 1 ) 

234 T ( I ) = XPU ) 

22 C IF( EL-1.0 ) 221 ,223,223 
4.2 1 LV = 3 
2^2 RETURN 

223 DEL TA = i.O*UEL TA 

224 TU=1.0/SL 

225 LV = 2 

226 GO TU 222 

227 LV = 1 

228 GO TO ^22 

229 LV = 4 

230 GO TU 222 

1 FORMAT ( lOHCUNDERSHUT) 

END 


27—0260 

27—0270 

27— 0280 

27—0290 

27—0300 

27—0310 

27—0320 

27—0330 

27—0340 

27 — 0350 

27—0360 

27—0370 

27—0380 

27 — 0390 

27—0400 

27—0410 

27—0420 

27—0430 

27—0440 

27—0450 

27—0460 

27—0470 

27—0480 

27—0490 

27—0500 

27—0510 

27— 0520 

27 — 0530 

27—0540 

27—0550 

27 — 0560 

27—0570 

27—0580 

27—0590 

27 — 0600 

27 — 0610 

27— 0620 


* Id FTC A IM LUST, DECK 

SUbRUUTlNE AIM 

..-..AIM (MCNITUK ADAPTATION) 

.....VARIABLES USED IN ARoGNNE SEARCH PROGRAM 

CuMMON/AGN/C< 12,10) , DELTA, E, EL, FAC, FB, FO, GB ( 12 ) , GS , GSB, 
1GSP , GSS, GTP , GTT, HU2,12>, IT, KSTEP, LV, LS, 

2M, Ml, Ms, N, NC, NS, NSShl, NSSW2 , 0, RS , SII2), SL, T ( 12 ) , TO, 
3VA , VF, VFP, VG 1 1 2) , VGP C 12 ) , VP, X ( 12 ) , XP 1 12 ) , Z 
30 C Z = GShGSP + 3. 0* (VF-VFP) /EL 
301 TO = GS/Z 
T I =GSP /Z 

2C 2 U = SUKTU. C-T0*T1) 

W = ABS(0*Z) 

V A = ( GSP+U-Z)/(G$P-GS+2.0*Q) 

303 TO = (EL* (i,SP*Z+2.0*U)*VA**2) /3 . 0 

304 FU = VFP- TU 

305 CALL MATMPY ( N , N , H ( 1 , 1 ) , VGP ( 1 ) , T ( 1 ) > 

306 TP 1 =G SP/SL 

307 DU 308 1=1, N 
306 T ( I ) =- I ( I ) + TPl*S( l ) 

309 M = 1 

310 Call MATMPYIM ,N,T(1) ,VGP (1 ) ,GTP) 

311 IF( 2.0*TU+GTP)317,3iZ,312 

312 TPI = 1.0-VA 


28—0010 
28 — 0020 
28—0030 
28—0 040 
28—0050 
28 — 0060 
28—0070 
28—0080 
28—0090 
28—0100 
28—0110 
28—0120 
28—0130 
28—0140 
28—0150 
28—0160 
28—0170 
28—0180 
28—0190 
28— 0200 
28— 0210 
28 — 0220 
28—0230 
28 — 0240 
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313 

DO 314 1=1, N 

28—0250 

3 14 

T{ I ) = VA * X ( 1 J + TP1*XPCI ) 

28— 0260 

315 

LV = 1 

28— 0270 

3 16 

RETURN 

28—0280 

317 

IF { VF *G TP /2. 0 ) 312,318,31ti 

28—0290 

318 

DO 319 1=1, N 

28— 0300 

319 

T ( 1 ) = T C I ) +XP ( 1 ) 

28—0310 

32 1 

CALL FCN( N»GB ( 1),F3,T(1) ) 

28—0320 

322 

IF( FB-FU) 323,312,312 

28—0330 

323 

WR 1 Tt (6, 1) 

28—0340 

324 

Du 325 1 = 1, N 

28—0350 

325 

s( i ) = rm-xpm 

28—0360 

32t 

M = 1 

28 — 0370 

321 

CALL MATMPY(M,N,S(1> ,GBU ) ,GTT) 

28—0380 

326 

GTT=GfT-GTP 

28 — 0390 

325 

IF( GTT )335,33C,330 

28—0400 

330 

GSS=GT T 

28 — 0410 

331 

SL =— G TP 

28 — 0420 

332 

EL = 1* 0 

28 — 0430 

33 3 

LV = 2 

28—0440 

334 

GO TO 31o 

28—0450 

335 

LV = 3 

28 — 0460 

336 

GO TO 316 

28—0470 

1 

FORMAT ( 9H ORICOCHt Tl 

28 — 0480 


END 

28 — 0490 


ilBFIC FIRE LOST, DECK 29 — 0010 

SUBROUTINE FIRE 29 — 0020 

C FIRE (MONITUR ADAPTATION) 29 — 0030 

C VARIABLES USED IN ARGUNNE SEARCH PROGRAM 29 — 0040 

COMMON /AuN/C ( 12,10) , DELTA, E, EL, FAC, FB, FO, GB(12), GS , GSB, 29 — 0050 
1GSP , GSS, GTP , GIT, HI12.12), IT, KSTEP , LV , LS , 29—0060 

2M, Ml, MS, N, NC, NS, NSShl, NSSH2 , U, RS , SI12), SL, T(12), TO, 29 — 0070 
3VA , VF, VFP » VG ( 1 2) , VGPI12), VP, XU2), XPI12), l 29—0080 


40 1 

CALL FCN(N,Gtt(l),FB,T(l) ) 

29 — 0090 

402 

M= 1 

29 — 0100 


IF< ABSIVA )-l.E-3 0 410,4 03 ,4 03 

29—0110 

403 

CALL MATMPY(M,N»S(1) ,G6(1) ,GSB) 

29— 0120 

404 

TP 1= AMIN 1C VF , VFP 1 

29 — 0130 

405 

IF ( TP i-Fb +E >418,406, 406 

29 — 0140 

406 

TP 1 = V A/ ( 1.0- VA) 

29 — 0150 

407 

TP 2 = (1. C-VA) /VA 

29—0160 

40 8 

TD=GS3*l TP1-TP2) 

29—0170 

4C5 

IF( ABSITQ )-U) 413,410,410 

29 — 0180 

410 

GSS=2.C*0 

29 — 0190 

411 

LV = 1 

29 — 0200 


M 1 = 0 

29— 0210 

412 

RETURN 

29 — 0220 

413 

GSS=T0*2. Q*Q 

29 — 0230 

414 

DU 415 1=1, N 

29— 0240 

415 

VG( I) = ( GB ( I )-VG(I)J*TPl+(VGP(I )— GB < I ) ) *T P2 

29 — 0250 

416 

LV = 2 

29 — 0260 


M 1=0 

29— 0270 

417 

GO TO 4 12 

29 — 0280 

418 

IF (VF-VFP) 419,428,428 

29 — 0290 

419 

riRITE (6,1) 

29 — 0300 

42C 

EL = ( 1.0— VA ) *EL 

29—0310 

421 

VFP = FB 

29—0320 

422 

GSP =G SB 

29 — 0330 

423 

DQ 425 1=1, N 

29 — 0340 

424 

xp( n = m ) 

29—0350 

425 

VGP ( I ) = GB ( 1 ) 

29—0360 
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426 

LV = 3 
M 1=M 1+1 


42 7 

Gu TO 412 


426 

WRITE (6,2) 


429 

EL = EL*VA 


43 C 

VF = FB 


431 

GS=GSB 


432 

DO 434 1=1, N 


433 

x( i ) = ni) 


434 

VG( I ) = GBCi) 


435 

GU TU 426 


1 

FORMAT (10H0MUVE 

LEFT) 

2 

FURMA T ( 11H0MUVE 
END 

RIGHT) 


29 — 0370 
29—0380 
29—0390 
29 — 0400 
29 — 0410 
29— 0420 
29—0430 
29 — 0440 
29—0450 
29—0460 
29—0470 
29—0480 
29—0490 
29—0500 


$IEFTC DkEbS LOST » DEC K 
SUBKULTINE DKESS(*) 

C JR E SS ( MuN I TUR A JAP TA 7 i UN ) 

C VAR iABLtS USED IN ARGONNE SEARCH PROGRAM 


C JMMUn M uN/C ( 12 , 1 0 ) , DELTA, t» EL, FAC, FB, FO, GB(12), GS » GSB* 
loSP, G S St dTP, GTT, H ( 12 » 12 ) , IT, KSTtF. LV, LS , 

2M » Ml, MS, N , NC, NS, NSSwi , NSSW2, C, RS , SI12), SL, T ( 12 ) , TO, 
3VA , VF, VFP, VG ( 1 2 ) , VGP ( 12 ) , VP, X(12), XPI12J, l 

c auxiliary search variables 

CUMMUN/A5 V/UtL( 12) , 10(12), IIN, KDLMAX, L AB EL ( 13) , NHP, NMLR, 
1NPCT, NPulP, PC T 

C VALUABLES NtEOtD FUR P0P1 

CUMMuN JMAX, LMAX , Ttit TA ( 7b ) 

C VARIABLES NEEDED FUR AB 

CUMMUN AK ( 75) , AI ( 75) , 

1 BR { 75) , BI < 75) , 

2 CR1(31), CR2 ( 51 ) , CIU51), C12I51), 

3 t X SuMR (51), E XSuMI (51) , 

4 FRAY, FCR ( 75 ) , PC I I 7 3 ) 

LV = LV 

GU TO ( 500,52 5,519,510) ,LV 
50C CALL MATMPYIN ,N ,H (1 , 1) , VG ( 1) , X( 1) ) 

5 C 1 M = 1 

502 CALL MATMPY(M,N,X(1) ,VG(1) ,T0) 

503 TP i = SL-GS S** 2 / TU-E 
5C4 I F ( TP 1 )524, 505,505 

505 DU 507 1=1, N 

506 DU 507 J = i,N 

507 Hi I,J )=H( I f J)-XU)*X( J)/TC 
506 JELTA=LEL lA J MEL*GSS/TU) 

5C9 TU=EL/GS5 

510 DU 512 1 = 1, N 

511 JO 512 J=i,N 

512 H< I, J >=H( I ,J) + TU*MI)*S( J) 

515 VF = F B 

52C JU 522 1 = 1, N 
52 I VG( I i = GB ( I ) 

522 X( I ) = T( I) 

513 WRITE (6, 1)1 T,MS,VF,GS 

l F ( NbSul.Ll. 1 ) GU TU 51 7 

516 WR ITE (6, 3 ) Jt L TA 
CALL SOUT 

I F ( UN .Nfc .NHP ) GU TU 51 7 
56 C IIN =0 

wRITEl 6,7) 

JU 534 1=1, N 

534 rfRITEl6,8) ( H ( 1 , J ) , J=1 ,N) 


30 — 0010 

30—0020 

30 — 0030 

30—0040 

30 — 0050 

30 — 0060 

30—0070 

30—0080 

30—0090 

30—0100 

30—0110 

30 — 0120 

30—0130 

30—0140 

30—0150 

30—0160 

30 — 0170 

30—0180 

30—0190 

30—0200 

30—0210 

30— 0220 

30—0230 

30—0240 

30 — 0250 

30—0260 

30—0270 

30—0280 

30—0290 

30 — 0300 

30—0310 

30—0320 

30—0330 

30—0340 

30—0350 

30—0360 

30—0370 

30—0380 

30 — 0390 

30 — 0400 

30—0410 

30—0420 

30—0430 

30—0440 

30—0450 

30—0 460 

30—0470 
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c o 


517 

WRITE (6,4) 

30 — 0480 


CALL PQ T1CH l $ 585) 

30—0490 

518 

I T=IT+ 1 

30—0500 


1IN=IIN+1 

30—0 510 

5185 

LV = 1 

30—0520 

523 

RETURN 

30 — 0530 

524 

WRITE (6,5) 

30 — 0540 

525 

TP1=EL*5L /GSS 

30—0550 

526 

DEL TA =DEL TA*TP1 

30—0560 

527 

TU = (TP1-1.0)/SL 

30—0570 

528 

GU TU 510 

30—0580 

585 

RETURN 1 

30 — 0590 

1 

FORMA T ( 4H Cl T 14, 7H STEP 14, 4H F=iP£14.5,5H GS=E14.5> 

30 — 0600 

3 

FORMA T ( 7H ODEL TA=1PE 14. 5 ) 

30 — 0610 

4 

FORMA T ( 20HO ---) 

30—0620 

5 

FORMA T( 9H OCUL INEAR) 

30 — 0630 

7 

FORMAT ( 13HGERR0R MATRIX) 

30 — 0640 

8 

FORMA T( 1H01P BE 14. 5/ ( 1H08E14.5) ) 

30—0650 


END 

30 — 0660 


ilBFTC STUFF LUST, DEC K 

SUBROUTINE STUFF 
....STUFF (MUNI TOR ADAP TATI ON) 

..••VARIABLES UgED IN ARGGNNE SEARCH PROGRAM 

CGMMON/AuN/Ci 12,10) , DELTA, E, EL, FAC, FB, FO, GB(12>, GS , GS B, 
1GSP, GES, GTP, GTT, H(12,12), IT, KSTEP, LV, LS , 

2M , Ml, MS, N, NC, NS, NSS Wl , NS S 1*2 , U, RS , S(12), SL, T ( 12 ) , TO, 
3VA , VF, VFP, VG 1 1 2 ) , VGP 1 12 ) , VP, X(12>, XPC12), L 
6CC KSTEP=KSTEP-1 

601 IF( KSTEP) 617, 602,602 

602 M S=M S + 1 

62 C WRITE (6, liMS, DELTA ,G S 

603 DU 604 1=1, N 
CALL R AND ( Y ) 

604 n I ) = Y-. 3 

605 CALL MATMPY(N,N,H{lfl) ,T(1) , S ( 1 ) ) 

6C6 M = 1 

6C 7 CALL MATMPYIM ,N ,SU) , T(l) ,TP1) 

6C8 TPi = SORT( TP I ) 

ECS EL = VP/TPI 
6 1C DO 611 1 = 1, N 
611 X ( l )=X( l)+EL*S(I) 

614 LV = 1 
6 lb 

617 LV = 2 

618 M S = 0 

6 1 5 GU 10 6 io 

1 FURMA T ( 13HORANDOM STEP 14, BH DE LT A= 1 PE 14 . 5 ,5 H GS=E14.5) 

END 


31 — 0010 
3 1 — 0020 
31 — 0030 
31 — 0040 
31 — 0050 
31 — 0060 
31 — 0070 
31—0080 
31 — 0090 
31—0100 
31—0110 
31 — 0120 
31 — 0130 
31—0140 
31—0150 
31 — 0160 
31 — 0170 
31 — 0180 
31—0190 
31 — 0200 
31—0210 
31— 0220 
31—0230 
31—0240 
31—0250 
31 — 0260 
31 — 0270 
31 — 0280 
31—0290 


SiBFTC MATMPY LU ST , DEC K 

subroutine matmpyim.n ,h, vg,s) 

C MATRIX MULTIPLICATION (MONITOR ACAPTATIUN) 


32 — 0010 
32 — 0020 
32 — 0030 
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C....,VAR TABLES USED IN ARGONNfc SEARCH PROGRAM 

C ON MU N /AGN / Li 12*10) , DE L TA , E , EL, F AC » FB , FO» Gb( 12) t GS » GS B * 
1GSP v GS S, bTP, GTT, H { 12,12) , IT, KSTEP , LV , LS , 

2M f Mi, MS, N , NC, NS, NSS*1 , NSSfc2, U, RS , S(12), SL, T ( 12 ) , TO, 
3VA, VF, VFP, VGU2), VGP(12), VP, X ( 12 ) , XP(12), Z 

702 00 7U3 1=1, M 
7CC S( i ) = 0.0 

DO 70 3 J = 1 » N 

703 Si I)=hiJ, I l*Vb< JM-Sli) 

7C 4 RETURN 

END 


32 — 0040 
32 — 0050 
32—0060 
32—0070 
32—0080 
32 — 0090 
32—0100 
32—0110 
32—0120 
32—0130 
32—0140 


i> IBFTC FCN LOST, DECK 

SUBROUTINE FCNlN, Vb , VF ,X) 

C * • * * • V AR TABLES USED IN ARUONNE SEARCH PROGRAM 

COMMON /A^N/CT 12,10) , DtLTA, t, EL, FAC, Fb, Ft), GBI12), GS , GS B, 
1GSP, GSS, GTP , GTT, HU2.12), IT, KSTEP, LV, LS, 

2M , Ml, MS, N, NC, NS, NSS Vtl , NSSW2, w, RS , S(12), SL, T(12), TO, 
3VA » VF, VFP, VG ( 1 2) , VGPI12), VP, X(12), XP(12), Z 

L AUaILIARV SEARCH VARiAbLES 

CUhMJN/ASV/OfcLI 12) , 10(12), IIN, KDLMAX, LABEL (13), NHP, NMLR, 
1NPLT, NPCTP, PC T 
L SCATLE PARAMETERS 

COMMUN/PaRA/RG, RO, V, w , A, VS, VtS , BG, DU MMY ( 4 ) , NAME( 12 ) 

U • • • • «CH I SUUAKtS, NORMALIZATION CONSTANT, AND SIGMA REACTION 
CUMMUN/CU0/CNI2ST, CHI2PT, CH I 2 T , SUMS(16), CHI2S(150>, 

1C H I 2P ( 150 ) , CHI2I150), ENORM, SGMRTH , S NORM ,X NORM, NP, CS NRM, NCSN 
C SCATLE CONTROLS 

CUMMUN/CN TK/KUUT, KSEND, KTRL(13) , KTRLTC13), KTRLX(13) 

C..*. •OTHER SCATLE VARIABLES 

CUMMUN/MI SC/ECM, ETA, ETA2, FKAY, FKAYA, F KAY 6 , RHOBC, RHO BN, 
1RHUBNG, SIbMAO, SIGMA1, TEMP 
DIMENSION SLR (12) 

EwUlVALtNCE ( RG , SER ) 

DIMENSION CH I 0 S ( i 9) , CHIQSTC19) 

EUU I VALENCE (CH1QS(1) ,CHI2ST) 

L CALCULATE FUNCTION AND PARTIAL DERIVATIVES TO BE USED BY SEARCH 

XX = Q# 

1ND = KTR LX{ 4) 

DU 802 1= 1, N 
J = ID( I ) 

802 SER ( J ) =X( I ) 

KODE = 1 
DO 816 1=1, N 
J = IU ( I ) 

IF ( I .NE.i )GU TO 813 
811 CONTINUE 

RHU6N=TEMP*R0 
R HO BN G = TEMP *RG 
FKA YA =FKA Y*A 
FKAYB=FKA Y*BG 
CALL P GEN 4 
CALL I N TC TR ( $ 82 5) 

CALL C SUB L 
CALL AB 
CALL SGSGCP 
CALL S1GMAR 
CALL CHI 6U 


33 — 0010 

33 — 0020 

33—0030 

33—0040 

33 — 0050 

33 — 0060 

33—0070 

33 — 0080 

33 — 0090 

33—0100 

33—0110 

33—0120 

33 — 0130 

33 — 0140 

33—0150 

3 3—0160 

33 — 0170 

33—0180 

33 — 0190 

33—0200 

33—0210 

33—0220 

33—0230 

33—0240 

33—0250 

33—0260 

33—0270 

33 — 0280 

33—0290 

33—0300 

33 — 0310 

13 — 0320 

33—0330 

33—0340 

33—0350 

33 — 0360 

33 — 0370 

33—0380 

33—0390 

33 — 0400 

33—0410 

33— 0420 

33—0430 

33—0440 

33—0450 

33—0460 
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IFiKTRLXl 12) .£W.I)XX=CHIUS( INO+1) 

1 F ( KODE .£ U • 2 )GU TO 81 5 
VF = CHIQS( IND) +XX 
DO 812 K- i *19 

812 C H 1QS f ( K ) =CHiUSCK) 

ENKMT-ENORM 

SGM T= SGMR TH 
KUDE = 2 

813 SEKU )=SER< J)+DEL(I) 

GO TO £11 

815 V G( i ) = ( CHIU S ( INU ) + XX— VF ) /Dfc L ( I ) 

SER ( J ) = SERI J)-DEtU> 

816 CONTINUE 

DO 818 K= l , 19 
618 C H IQS ( K )=CHI U ST ( X) 

ENORM = ENRM T 
SGMRTH = SGMT 
RETURN 

825 WR 1 TE ( 6f 8 30) 

83 C FORMA T ( 62HK NONSTANDARD RETURN FROM 
1INATED ) 

STOP 

END 


33—0470 
33 — 0480 
33 — 0490 
33—0500 
33—0510 
33—0520 
33—0 530 
33—0540 
33—0550 
33—0560 
33—0570 
33—0580 
33—0590 
33—0600 
33—0610 
33—0620 
33—0630 
33—0640 
33—0650 

INTCTR IN FCNt EXECUTION TERM33 — 0660 

33 — 0670 
33 — 0680 
33 — 0690 


$ 1 8 F TC SCTBD LOST * DEC K 
BLJCK DATA 

C SCATLE PARAMETERS 

COMMON /PARA /R I » RS, VO. Ri . AS, VS. MiS , AI, WV I » AO, RO, VSODD. 
IN AM 1 1 12) 

C CONVERGENCE CRITERIA 

CUMMUN /CUNV/EPS1, EP S2 , E P S3 , EPS4 

DATA! NAME ( I ), 1 = 1, 12) /2HR1 ,2 HR S , 2HV0 ,2 HWl , 2H AS , 2HVS , 2HW S , 2H A I , 
13HWVI , 2HA U , 2HR0 ,5HVSUDD/ 

DATA EPS1,EPS2,EPS3,EPS4 /3*.0Q0C1, .001/ 

END 


34 — 0C10 
34—0 020 
34 — 0030 
34 — 0040 
34 — 0050 
34—0060 
34 — 0070 
34 — 0080 
34—0090 
34—0100 
34—0110 


Lewis Research Center, 

National Aeronautics and Space Administration, 
Cleveland, Ohio, April 29, 1970, 

129-02. 
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APPENDIX A 


SYMBOLS 


AI 

diffuseness parameter in 

K 

Planck constant, MeV-sec 


nuclear potential (eq. (15)), 

IN1,IN2'I 

number of angles in ranges 1 


fm 

IN3, IN4J 

through 4 (eq. (41)) 

AO 

diffuseness parameter in 

J 

last angle in data set 


nuclear potential (eq. (12)), 
fm 

max 

i 

total angular momentum 

AS 

diffuseness parameter in 
nuclear potential (eq. (7)), 

k 

quantum number 
wave number in center -of - 

_i 

Me) 

fm 

spin -independent scattering 

k 

mass system, fm 
wave vector, fm - * 


amplitude (eq. (22a)) 

L 

orbital angular momentum 

a 

diffuseness parameter in 


operator 


nuclear potential, fm 

l 

orbital angular momentum 

B(0) 

spin -dependent scattering 


quantum number 


amplitude (eq. (22b)) 

^lim 

see eq. (44) 

C ± 

coefficients used to compute 

7T 

mass of pion, kg 

scattering amplitudes 


mass of target nucleus, amu 

c 

(eq. (21)) 

velocity of light, m/sec 

D 

m i 

mass of incident nucleus, 
amu 

E 

energy in center-of-mass 

N 

normalization constant for 

e 

system, MeV 
electron charge, C 

NF 

a ex (0) (eq. (35)) 
last forward angle 

f c (S) 

coulomb scattering amplitude 

NR 

last middle angle 

f 2 

(eq. (23)) 

chi-square function to be 

n e 

normalization constant for 
cr ex (0) which gives smallest 

X 

minimized by search 


X 2 for a given 0 *^( 0 ) 

G ) 

j** 1 component of gradient of 


(eq. (36)) 

f 2 (eq. (50)) 

x 

N1,N2,1 

first angle of ranges 1 through 

H 

matrix used as metric in 
search parameter space 

N3, N4 j 
n 

4 (eq. (41)) 
unit normal vector 


i ■ ii n i 
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P(0) 

polarization at angle 9 

VS 

strength parameter for real 


(eq. (27)) 


spin -orbit nuclear potential, 

P(0) 

polarization vector 


MeV 

AP ex (0) 


VSODD 

strength parameter for real 

uncertainty in experimental 


spin -orbit nuclear potential, 


polarization at angle 9 


for odd values of l, MeV 

P^cos 6) 

Legendre polynomial 

V EFF 

dimensionless effective 

P*(cos 9) 

associated Legendre poly- 

potential for given l 

nomial 


(eq. (43)) 

R 

rotation parameter (eq. (28)) 

V x (r) 

spin -independent potential 



(eq. (2)), MeV 

R' 

rotation parameter (eq. (29)) 

V 2 (r) 

spin -dependent potential 

RC 

coulomb charge radius param - 


(eq. (2)), MeV 


eter 

WI 

strength parameter for 

RI 

radius parameter in nuclear 


imaginary central nuclear 


potential (eq. (15)), fm 


potential, MeV 

RO 

radius parameter in nuclear 

ws 

strength parameter for 


potential (eq. (12)), fm 


imaginary spin-orbit 

RS 

radius parameter in nuclear 


nuclear potential, MeV 


potential (eq. (7)), fm 

WVI 

strength parameter for 

r 

radial coordinate, fm 


imaginary central nuclear 

S 

spin angular momentum 


potential, MeV 


operator 

X. 

1 

th 

current values of j search 

S Z 

orbital angular momentum 

parameter 

number (eqs. (48a) and 

A Xj 

increment for x^ in eq. (50) 


(48b)) 

z 

dimensionless charge number 

TCI 

see eq. (45b) 


of incident nucleus 

TCR 

see eq. (45a) 

Z’ 

dimensionless charge number 

TSI 

see eq. (49b) 


of target nucleus 

TSR 

see eq. (49a) 

0 

rotation angle (eqs. (25a) and 



(25b)), deg 

V 

scattering potential, MeV 


phase shifts (eq. (21)) 

VO 

strength parameter for real 




central nuclear potential. 

e V e 2’l 

convergence parameters 


MeV 

' e 3’ e 4 J 


k 
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V 

coulomb parameter (eq. (5)) 

LAB 

value as measured in lab- 


absorption coefficients 


oratory system 

o 

(eqs. (20a) and (20b)) 

l 

orbital angular momentum 

e 

angular coordinate in center - 

M 

middle angles (eq. (39)) 


of -mass system, deg 

max 

maximum 

M 

reduced mass, amu 

n 

number of search parameters 

P 

dimensionless radial coor- 

O 

corresponds to input param - 

a(0) 

dinate (eq. (3)) 
elastic cross section at 

p 

P 

eters AO and RO 
polarization 

a z 

angle 0 , fm 

coulomb phase shift (eq. (24)) 

R 

(ft 

backward angles (eq. (40)) 
real part of complex number 

CT 0 

Acr ex (0) 

coulomb phase shift for l = 0 
uncertainty in experimental 

S 

corresponds to input param- 
eters AS and RS 


cross section at angle 0, 

SO 

spin -orbit 

x 2 

fm 2 

sum of chi-squares for a 

T 

total (polarization + cross 
section) 

x 2 (e) 

* 

Subscripts: 

range of angles 

chi-square at angle 0 

wave function representing 
scattering particle 

a 

0 

1 

2 

cross section 
incident 

after single scattering 
after double scattering 

CN 

central nuclear 

Superscripts: 

coul 

F 

I 

J 

coulomb 

forward angles (eq. (38)) 

corresponds to input param- 
eters AI and RI 

imaginary part of complex 
number 

ex 

th 

+ 

experimental values 

theoretical or calculated 
values 

total angular momentum, 
j =1+ 1/2 

total angular momentum, 

i 

K 

■LV 

index denoting j n param- 
eter, 1, . . . , n 

index denoting particular 
2 

X function (eq. (41)), 

1, ...» 4 


j = l - 1/2 
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APPENDIX B 


GLOSSARY OF FORTRAN VARIABLES 

The FORTRAN variables listed here are those appearing in the COMMON statements 
of program SCATLE. Some of the FORTRAN variables in COMMON block /AGN/ are 
omitted, since they are internal to the search subroutines of reference 2. When two or 
more FORTRAN names refer to the same variable, the alternate names are enclosed in 
brackets. Some of the mathematical symbols listed do not appear in appendix A. Those 
symbols correspond to symbols in references 1 and 2, and are defined in the last column. 


FORTRAN symbol 

Dimension 

COMMON 

block 

Mathematical 

symbol 

Description 

AETAl(L), AETA2(L) 

51 

PTPL 

4’ "l 

absorption coefficients 
(eqs. (20a) and (20b)) 

AI, [BG] 


PARA 

*1 

diffuseness parameter for 
Gaussian absorption (eqs. (14), 
(16), (17), (18)) 

AO, [DUMMY(2) ] 


PARA 

a o 

diffuseness parameter for de- 
coupled potential (eq. (11)) 

AR(J), AI(J), [AAI(J) ] 

150 

SACS 

A,(0) 

spin -independent scattering 
amplitude at angle 6 (eq. (22a)) 

AS, [A] 


PARA 


diffuseness parameter, 
(eqs. (10) and (13)) 

BR(J), BI(J) 

150 

SACS 

\ (A). B/0) 

spin -dependent scattering am- 
plitude at angle G (eq. (22b)) 

C(K,M) 

(12, 10) 

AGN 


constraint coefficients for 
search procedure 

CHI2(J) 

150 

CSQ 

4(0) 

total chi-square at angle Q 

CHI2T, [CHISQ(3)] 


CSQ 

4 

total chi-square summed over 
J max an £ les (eq. (34)) 

CHI2P(J) 

150 

CSQ 

x|(0) 

chi-square for polarization at 
angle 9 (eq. (33)) 

CHI2PT, [CHISQ(2)] 


CSQ 

v2 

X p 

chi-square for polarization 
summed over J max angles 
(eq. (33)) 

Cffl2S(J) 

150 

CSQ 

4(0) 

chi-square for cross section at 
angle 6 (eqs. (35) and (37)) 

CHI2ST, [CHISQ(l)] 


CSQ 

4 

chi-square for cross section 
summed over J max angles 
(eq. (35)) 

CR1(L), CI1(L) 

51 

VARL 

<?> c is 

see eqs. (21), (22a), and (22b) 

CR2(L), CI2(L) 

51 

VARL 

C l,M’ C l,s 

see eqs. (21), (22a), and (22b) 
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FORTRAN symbol 

Dimension 

COMMON 

block 

Mathematical 

symbol 

Description 

CSNRM 


CSQ 


JMAX - NP 

DAI, DAO, DAS, DRI, DRO, DRS, 
DVO, DVS, DVSODD , DWI, DWS, 
DWVI 


GDV 


parameter increments 
used for grid procedure 
(table IV) 

DEL(K) 

12 

ASV 

AXj 

increment for search 
parameter x^ (eq. (50)) 

DELRl(L), DELR2(L) 

51 

PTPL 

6 z,<sr 6 z,« i 

see eq. (21) 

DELTA 


AGN 


determinant of H -matrix 
used in search procedure 

DPOLEX(J) 

150 

THI 

AP eX (0) 

standard deviation in ex- 
perimental polarization at 
angle 6 (eq. (33)) 

DRHO(I) 

249 

RHT 

Ap 

numerical integration step 
for I th integration interval 

DRHOL 


RHT 


last interval to be used in 
numerical integration 

DRHOIN(K) 

9 

RHU 


numerical integration step 


size for all DRHO(I), where 
RHOIN(K) < RHO(I) £ 
RHOIN(K+l) 


DSGMEX(J) 

150 

THI 

Acr ex (0) 

standard deviation in ex- 
perimental cross section at 
angle 6 (eq. (35)) 

E 


AGN 

e 

twice the fractional accuracy 
to which f 0 is to be mini- 

x 2 

mized 

ECM 


MISC 

E 

incident energy in center - 
of-mass system 

EPS1, EPS2 , EPS3 


CONV 

e r e 2’ e 3 

error thresholds in calcula- 
tions of coulomb functions 

EPS4 


CONV 

e 4 

error threshold used in 
POT1CH subroutine 

ELAB 


EMCV 

e lab 

energy of incident particle 
in laboratory system 

ENORM 


CSQ 

n e 

normalization constant 
(eq. (36)) 

ETA, ETA2 


MISC 

n, (v) 2 

coulomb parameter (eq. (5)) 

EXSGMR(L), EXSGMI(L) 

51 

VARL 


real and imaginary parts of 
exp(2i<7j) 
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FORTRAN symbol 

Dimension 

COMMON 

block 

Mathematical 

symbol 

Description 

F(L) 

52 

VARL 


regular coulomb function 

FAC 


AGN 


factor which controls the 
form of the initial H- 
matrix for a search 
(table m) 

FBAR(L) 

91 

VARL 

jp( n ) 

*1 

n th trial value of regular 
coulomb function used in 
iterative computation of F 

FCR(J), FCI(J) 

150 

SACS 

f c,tfi^’ f c ,y 0 ) 

coulomb scattering am- 
plitude (eq. (23)) 

FFCI(I) , FFCIM(I) 

250 

PGF 

f CI^’ f Cl( P+ Y') 

form factors for the 
imaginary central po- 
tential 

FFCR(I), FFCRM(I) 

250 

PGF 

f CR^’ f CR^ P + y) 

form factors for real 
central potential 

FFSI(I) , FFSIM(I) 

250 

PGF 

f sr (P), + 

form factors for imaginary 
spin -orbit potential 

FFSR(I) , FFSRM(I) 

250 

PGF 

f SR^’ f SR^ J + y) 

form factors for real 
spin -orbit potential 

FKAY 


MISC 

k 

wave number (eq. (4)) 

FKAYA 


MISC 

k- a g 

wave number times 
diffuseness constant 

FKAYB 


MISC 

k • aj 

wave number times 
diffuseness constant 

FMB 


EMCV 

m b 

mass number of target 
nucleus 

FLPT 


PGU 

i 

value of l in eq. (43) 

FMI 


EMCV 

m i 

mass number of incident nucleus 

FMU 


EMCV 

IL 

reduced mass of incident 
particle 

FP(L) 

51 

VARL 

*1 

derivative of regular 
coulomb function 

G(L) 

52 

VARL 

G l 

irregular coulomb func- 
tion 

GP(L) 

51 

VARL 

G 'l 

derivative of irregular 
coulomb function 

H(K,M) 

(12,12) 

AGN 

H. m 
k, m 

element of matrix used as 
a metric during search pro- 
cedure 


101 



FORTRAN symbol 

Dimension 

COMMON 

block 

Mathematical 

symbol 

Description 

ID(K) 

12 

ASV 


internal control used for 
initializing search param- 
eter array 

IFIRST 


RHT 


initial value of index I re- 
ferring to RHO(I) 

UN 


ASV 


internal counter used to 
regulate printout of H- 
matrix 

ILAST 


RHT 


final value of index I re- 
ferring to RHO(I) 

JMAX 


THI 

J max 

total number of angles 
(JMAX < 150) 

KDLMAX 


ASV 


internal control used to 

initiate calculation of re- 
o 

stricted x functions as 
given in eqs. (38) through 
(42) 

KL(K), [KTRL(K)] 

13 

CNTR 


input controls (table m) 

KOUT 


CNTR 


internal control used to 
select proper output mode 

KSEND 


CNTR 


KSEND set to KT(1), see 
description of KT(1) in 
table m 

KSTEP 


AGN 


number of random changes 
in variables to test minimum 
after a search 

KT(K), [KTRLT(K) ] 

13 

CNTR 


input controls (table m) 

KX(K), [KTRLX(K) ] 

13 

CNTR 


input controls (table m) 

L 


RWF 

1 + 1 

index of partial waves 

LABEL® 

13 

ASV 


array containing search 
parameter labels 

LMAX 


LIND 

*max + 1 

index of maximum partial 
wave 

LMAXM 


LIND 

max 

maximum number of partial 
waves 

N 


AGN 

n 

number of search parameters 

NADL 


PCH 


internal control which is in- 
creased by 1 each time Z max 
is increased in POT1CH 
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FORTRAN symbol 


Dimension 


COMMON 

block 


Mathematical 

symbol 


Description 


NADR 


PCH 


NAI, NAO, NAS, NRI, NRO, NRS, GDV 

NVO, NVS, NVSODD , NWI, NWS, 

NWVI 

NAME(K) 12 PARA 


NC AGN 

NCSN CSQ 

NHP ASV 

NMAX RHU 

NMLR ASV 

NP CSQ 

NPCT ASV 

NPCTP ASV 

NSSW1 AGN 

NTOT PCH 

NUMRUN PTI 

PCT ASV 


PM A, PMB 


SCNFF 


P mA 



internal control which is 
increased by 1 each time 
P max is ^creased in 
POT1CH 

number of increments used 
for parameters in grid 
(table IV) 

array of output labels for 
nuclear potential param - 
eters 

number of constraints on 
search parameters 

number of values to be 
divided by CSNRM 

H -matrix is printed out 
every NHP iterations during 
a search 

number of RHOIN(I) values 
to be input 

search is cut off after NMLR 
move left or move right 
output messages 

chi-square adjustment factor 

search is terminated after 
NPCT iterations with less 
than PCT percent change 

not used 

input variable which controls 
search output (table HI) 

NTOT = NADL + NADR 

index identifying cases of 
a data set 

search will terminate after 
NPCT iterations with less 
than PCT percent change 

parameters for knee and tail 
variations (eqs. (86) and (87) 
of ref. 1) 
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FORTRAN symbol 

Dimension 

COMMON 

block 

Mathematical 

symbol 

Description 

POLEX(J) 

150 

THI 

P ex (6>) 

experimental value of 
polarization for angle 6 

POLTH(J) 

150 

THI 

P th (0) 

calculated value of 
polarization for angle G 

RC 


EMCV 


uniform charge radius 
constant used to compute 

^coul 

RHO(I) 

250 

RHT 

P 

value of P at I tJa in- 
tegration interval 

RHOBC 


MISC 

P cou\ 

value of P at which 
uniform charge density ends 

Voui = k - RC K > 1/3 

RHOBN 


MISC 

p s 

value of P corresponding 
to RS (eq. (7)) 

RHOBNG 


MISC 

P I 

value of P corresponding 
to RI (eq. (15)) 

RHOIN(K) 

10 

RHU 


values of P for which in- 
tegration interval changes 

RHOMAX 


RHT 

p max 

value of P for last in- 
tegration interval 

RI, [RG] 


PARA 

RI 

Gaussian radius constant 
(eq. (15)) 

RO, [DUMMY(3)J 


PARA 

RO 

radius constant for de- 
coupled potential (eq. (12)) 

RS, [RO] 


PARA 

RS 

radius constant (eq. (7)) 

SGMAC(J) 

150 

SACS 

CT coul (0)= IV 0 ) I 2 

coulomb scattering cross 
section for angle 6 

SGMAEX(J) 

150 

THI 

<r ex (9) 

experimental value of 
cross section for angle Q 

SGMATH(J) 

150 

THI 

cr th (0) 

calculated value of cross 
section for angle 0 

SGMRTH 


CSQ 

^R 

calculated value of re- 
action cross section 

SIGMAO, SIGMA1 


MISC 

V a i 

coulomb phase shifts 
(eq. (24)) 

SIGTEM(J) 

150 

SACS 


internal temporary 


storage for weight 
factors in computing 
xf(0) (eqs. (35) and 
(37)) 


104 



FORTRAN symbol 

Dimension 

COMMON 

block 

Mathematical 

symbol 

Description 

SNORM 


CSQ 

N 

normalization constant for 
experimental cross sec- 
tion (eq. (35)) 

SRATIO(J) 

150 

SACS 


ratio of scattering cross 
section to coulomb cross 
section for angle 6 

SUMS(K) 

16 

CSQ 


2 

X for a restricted range 
of angles (see next 16 
variables ) 

SUM1S, [SUMS(l)], [CHISQ(4) ] 


CSQ 


see eq. (41a) 

SUM1P, [SUMS(2) ], [CHISQ(5) ] 


CSQ 

x 2 

X P, 1 

see eq. (41b) 

SUM 2S , [SUMS(3) ], [CHISQ(6)J 


CSQ 

x 2 

*0,2 

see eq. (41a) 

SUM2P, [SUMS(4)j, [CHISQ(7) ] 


CSQ 

x 2 

*P, 2 

see eq. (41b) 

SUM3S, [SUMS(5)), [CHISQ(8) ] 


CSQ 

x 2 

V,3 

see eq. (41a) 

SUM3P, [SUMS(6)J, [CfflSQ(9)] 


CSQ 

x 2 

*P, 3 

see eq. (41b) 

SUM4S, [SUMS(7)1, [CHISQ(IO) | 


CSQ 

x 2 

*o,4 

see eq. (41a) 

SUM4P, [SUMS(8)j, [CHISQ(ll) ] 


CSQ 

x 2 

*P, 4 

see eq. (41b) 

SUMFS, [SUMS(9)j, [CraSQ(12)J 


CSQ 

x 2 

*o, F 

see eq. (38a) 

SUMFP, [SUMS(10) ], [CHISQ(13)J 


CSQ 

X 2 

*P, F 

see eq. (38b) 

SUMMS, [SUMS(ll) ], [CHISQ(14) ] 


CSQ 

x 2 

M 

see eq. (39a) 

SUMMP, [SUMS(12) ], [CHISQ(15)J 


CSQ 

2 

X P,M 

see eq. (39b) 

SUMRS, [SUMS(13)j, [CHISQ(16)J 


CSQ 

x 2 

see eq. (40a) 

SUMRP, [SUMS(14) ], [CHISQ(17)j 


CSQ 

x 2 

X P, R 

see eq. (40b) 

SUM 34S, [SUMS(15) ], [CHISQ(18)] 


CSQ 

y 2 

V, 34 

see eq. (42a) 

SUM 34 P, [SUMS(16) ], [CHISQ(19)J 


CSQ 

y 2 

X P, 34 

see eq. (42b) 

TEMP 


MISC 

Mm,,) 1 / 3 

auxiliary constant used 
in calculating various P 
values (eq. (7)) 

TH(K) 

2 

SCNFF 

h 0A> h 0B 

parameters for knee 
and tail variations 
(eq. (88) of ref. l) 

THETA(J) 

150 

THI 

9 

center-of-mass scatter- 
ing angle in radians 

THETAD(J) 

150 

THI 

6 

center-of-mass scatter- 
ing angle in degrees 
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FORTRAN symbol 


Dimension 


COMMON 

block 


Mathematical 

symbol 


Description 


TITLE(K) 

13 

PTI 


title information (78 char- 
acters) 

TN1(K) 

2 

SCNFF 

nAp nB2 

parameters for knee and 
tail variations 

TN2(K) 

2 

SCNFF 

nA2> 11 B 2 

(eq. (90) of ref. 1) 

TAI, TAO, TAS, TRI, TRO, TRS, 
TVO, TVS, TVSODD, TWI, TWS, 
TWVI 


GDV 


storage for initial param- 
eter values during grid 

TRM(K) 

2 

SCNFF 

P mA’ P mB 

parameters for knee and 
tail variations (eqs. (86) 
and (87) of ref. 1) 

UCIB(I), UCIM(I) 

250 

PGU 

u a ( p ), u ci( p + y ) 

l -independent part of 
imaginary central potential 

UCRB(I), UCRM(I) 

250 

PGU 

U CR< p )> U Cr( P + y) 

l -independent part of real 
central potential 

USRB(I), USRM(I) 

250 

PGU 

U SR^> U Sr( P + y) 

l -independent part of real 
spin -orbit potential 

USIB(I), USIM(I) 

250 

PGU 

u SI ( p ), u SI ( p + y) 

Z-independent part of 
imaginary spin-orbit 
potential 

VO, [V] 


PARA 

VO 

depth of real central po- 
tential 

VP 


AGN 


input number to determine 
size of random step taken 
at end of search (see card 
31--0220. ) 

VS 


PARA 

vs 

depth of real spin -orbit 
potential 

VSODD, [DUMMY(4)] 


PARA 

VSODD 

real spin -orbit strength for 
odd l in exchange option 

WI, [W] 


PARA 

WI 

depth of imaginary central 
potential 

ws 


PARA 

WS 

depth of imaginary spin- 
orbit potential 

WVI, [DUMMY(l)] 


PARA 

WVI 

depth of imaginary central 
potential 

XNORM 


CSQ 

N 

input value of normalization 
constant (eq. (35)) 
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FORTRAN symbol 

Dimension 

COMMON 

block 

Mathematical 

symbol 

Description 

XC1, XCP1 


RWF 

*j(P) 

real parts of radial wave 
function and first deriv- 
ative for Z + 1/2 

XD1, XDP1 


RWF 

(P) > (P) 

as above for real part, 
Z - 1/2 

YC1, YCP1 


RWF 

y>), yj(p) 

as above for imaginary 
part, Z + 1/2 

YD1, YDP1 


RWF 

y^p), y^(P) 

as above for imaginary 
part, Z + 1/2 

X1(L), X1P(L) 

51 

RWFF 

x ^ P max^’ x Z^ P max) 

value of XC1 and XCP1 at 
end of numerical integration 

X2(L). X2P(L) 

51 

RWFF 

x i^max^’ x z^ p max^ 

value of XD1 and XDP1 at 
end of numerical integration 

Y1(L), Y1P(L) 

51 

RWFF 


value of YC1 and YCP1 at 
end of numerical integration 

Y2(L), Y2P(L) 

51 

RWFF 

y Z^ P max^’ y Z^max) 

value of YD1 and YD PI at 
end of numerical integration 

ZZ 


EMCV 

ZZ 1 

product of atomic numbers 
of target and incident nuclei 
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